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STOP TYPING! 



Get Instant Enjoyment from SoftSide's programs with SoftSlde's 
Cassette Version (CV) and Disk Version (DV)! 

Our media editions let you spend less time TYPING — and more time USING the 
fine software that SoftSide brings you every month. And we let you choose the 

version you want. 



Cassette Version (CV) 



Disk Version (DV) 



SoftSide's Cassette Version (CV) offers you an inexpensive way 
to enjoy our programs witfiout hours of typing or hunting for 
errors. All programs are tested and ready to go! 

CV gives you the programs offered for your system each month 
in SoftSide on a tape, plus the magazine Itself — 
12 magazines and 12 tapes per year for just $75. 



DV contains a BONUS program for your system on the disk in 
addition to the other programs available that month. Only the 
documentation for the bonus programs will appear in SoftSide 
magazine, NOT the code. The bonus programs will be of every 
conceivable type — multiple and Mac\r\\ne Language programs, 
modified languages, ongoing modular programs and software 
so extensive, It would take an entire Issue of SoftSide just to 
print the code. 

Feel like you're missing something? You are. Don't wait to take 
advantage of our offer — 12 magazines and 12 disks for just 
$125 a year. For orders outside the U.S., add $50. For your 
convenience we also offer an installment payment plan for 
MasterCard and VISA holders: Pay just $32.50 per quarter (a 
total of $130 which includes a $5 billing charge). 

To order, use the card provided In this Issue. 





PflOHC CnrnPUTER EHPD 

ONE PLACE 
TO SEE IT ALL! 



Mini and micro computers, software, 
graphics, data and word processing, tele 
communications, peripheral equipment, 
supplies and computer services — you'U 
find it all at. the Pacific Computer Expo, 
January 21 - 23 at the San Diego Conven- 
tion and Performing Arts Center. 

You'll be able to sit down with a 
computer to evaluate its ability to meet 
your needs whether business, educa- 
tional or for your home. 

Hands-on workshops v^n,ll be con- 
ducted throughout the three days of, 
this expo and are sponsored by 
Radio Shack, Apple Computers, 
Inc., and IBM. 

Attend seminars designed to 
advise you where computer 
technology is heading and its 
influence on your life today and 
tomorrow. 

And you'll enjoy yourself with 
computer music, Reggie the Robot, 
computer art and a host of other 
electronic gadgetry for home and office. 



Plus see a full size display of THE 
SHUTTLE ORBITER COCKPIT courtesy of 
Rockwell International. 

SEE, LEAKN, PARTICIPATE AND ENJOY! 
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PfiClHC CnmPUTER EHPD 



San Diego Convention 
and Performing Arts Center 
202 C Street 

THURSDAY, JAN. 21, 10 AM - 7 PM 
FRIDAY, JAN. 22, 10 AM - 7 PM 
SATURDAY, JAN. 23, 10 AM - 7 PM 

Adult admission $5.00. Children under 12 free when 
accompanied by an adult. 
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PfiClRC CDmPUTER EHPD 
SAVE 



00 



Present this coupon at the 
Convention Center box 
office and save 31.00 on 
one adult admission. 



Putting 
micro- 
graphics 
into 
action 




Micrographics are 
now practical. With 
Envyrn™, maps, charts, 
graphs, floor plans, or any 
physical situation may 
be created or duplicated — 
in three levels of resolution. 
After you've created your 
graphics, save them, redesign them, 
create hard copy, and put them into 
action. With the artificial intel- 
ligence features of Envyrn^M, you 
can make your graphics 
"smart," with prescribed 
reactions and information hidden 
under the display. You can truly 
create your own world. 

In the Envyrn™ Participation Pro- 
gram, you will be a part of the 
documented experience in this new 
software innovation. During your full 
year of participation, you will 
receive the initial Envyrn^w editor 
(a much expanded version of the 
one published In SoftSide), 
extensive supporting documentation, 
program notes, suggested applica- 
tions and at least one completely 
updated editor later In the year — 
all for only $200. Envyrn^" js des- 
tined to become one of the stand- 
ard utilities in your program library. 
Take part in this unique experience. 
The EnvyrnTM Participation Program 
— Putting micrographics Into 
action. 



Participation Program 

6 South Street, Milford, NH 03055 



D One-year subscription to the 

EnvyrnTM Participation Program — $200.00 

Name 

Ad d ress 



City/State 

D Payment enclosed 

D MasterCard D VISA 
Name of Cardholder 
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Exp.Date_ 



MC#and lnterbank#/VISA#. 
Signature 



I own a 48K TRS-80® with Disk D Model I D Model 

TRS-80 is a registered trademarl< of Tandy Corporation 
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Bet on the horse race or take your chances on 
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by Jon Voskuil 

Q It's that time of year when people 
tend to get sentimental about the past 
and say hopeful things about the 
future. But enough is enough, right? 
Since this is supposed to be about 
THIS issue, let's get to it. 

Q Top billing at the beginning of this 
new year goes to DV. For the benefit of 
the uninitiated, that stands for Disk 
Version. It also stands for a premium 
product which contains not only the 
programs listed in this printed 
magazine, but also additional high- 
quality software not available in listed 
form. We feel that this is the form of 
the computer magazine of the future, 
and we're doing what we can to make it 
a reality today. (Just like the TV ads.) 

Q ATARI® DV subscribers will find 
Death Star to be an intriguing and 
challenging game, giving them an in- 
side, 3-D view of a maze of passages 
that must be navigated in order to ac- 
tivate a defective reactor and then 
escape. Nuclear Submarine Adventure, 
in versions for the Apple and the 
TRS-80®, is an extensive and creative 
adventure aboard a modern U.S. sub- 
marine, complete with nuclear 
weapons and all those other goodies 
that go along with the MAD (Mutual 
Assured Destruction) philosophy of in- 
ternational politics. 

Q Our three-across cover feature, 
Gambler, is an interesting meld of a 
variety of games of chance, which may 
allow you to recoup some of your holi- 
day expenses if you play your cards 
(and dice, and horses, and lottery 
tickets) right. It's all done for com- 
puter money, of course, and not the 
real thing. On the other hand, you 
could dial up the bank on your 
modem . . . 

Q Also for all three systems is the 
next installment of the Microtext word 
processor. With the printout module 
added to last month's original pro- 
gram, you now have the capability of 
outputting formatted text to a printer 
for hard copy. Look for other features 
and enhancements in future issues. 
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Q For TRS-80® users, Vici and 77?S- 
Man should provide lots of entertain- 
ment for long winter evenings. Vici is 
enough to make you think you might 
be able to succeed as President/ 
King/Czar/Shah the next time croup 
season comes around. And TRS-Man 
is enough to make your computer think 
it's an arcade game, with all the re- 
quisite creatures running around the 
screen trying to destroy one another. 

□ Apple polishers won't be able to 
resist Apple Capture, a capricious bat- 
tle of worms in which the goal is to 
strip the Hi-Res orchard of its 15 scat- 
tered fruits. And in a more intellectual 
vein, the Apple version of Word Wars 
is featured as this month's translation 
contest winner. You'll find yourself 
dusting off your dictionary after a few 
rounds of this one. 

Q ATARI® addicts will have their 
detective skills tested as they search 
Piazza Hotel for the bomb that may 
destroy them along with the rest of the 
guests. And as if this race against time 
weren't enough. Number Race will 
wear out your joystick as you try to 
keep numerous characters from getting 
out of hand on the screen. (If you think 
that sounds vague, then YOU try 
describing the crazy game once you've 
played it for awhile.) 

□l If you're looking for a quickie to 
type in during a spare half hour, 
there's also a K-Byter just for you. Let- 
ter Spitter for the Apple, Letter Writer 
for the ATARI®, and Row Switch for 
the TRS-80®, each has its own unique 
flavor and is well worth the typing. 

□l In addition to this very full slate of 
programs (don't expect this every 
month!), a variety of articles, columns, 
and other features awaits you. Pro- 
gramming hints, enhancements, and 
techniques are riddled throughout, as 
well as reviews, information, 
philosophy, and all those nice, juicy 
letters (my favorite part). 

That should keep you busy until next 
month. 

SoftSide 



REWARD! 

TRANSLATION 

APPEAL 

SoftSide will give a $100 soft- 
ware certificate to the author of 
the best translation of a past 
SoftSide feature program. Each 
month we will pubHsh at least one 
of these translations. Your port- 
folio will be enhanced to say 
nothing of your software library! 

We will accept entries for all 
past SoftSide programs at any 
time. However, we suggest you 
submit translations of recent pro- 
grams within three months of 
their original publication date for 
maximum consideration. Entries 
must be submitted on tape or 
disk, accompanied by complete 
documentation. Please enclose a 
self-addressed stamped envelope 
if you would like your entry 
returned. 

The quality of each translation 
will be judged by the SoftSide 
editorial staff and prizes will be 
awarded at the time of publi- 
cation. Q 




recordings 



duplicating service 



307 West Main Street 
Maple Shade, NJ 08052 

(609)667-1667 



• AMP "Data-sette" blank 
cassettes for digital use 

• Cassette Storage Boxes 

• Cassette Labels - 
Custom printing & blank 

• Custom Record Album 
production from your tapes 

• Stereo and Spoken Word 
cassette duplication 

Call or write to: 




for more Information. 



All cassette work at 

AMP R. & D. is custom work 

to fit your needs. 



by Randal L. Kottwitz 



The controversy continues. Day 
after day my desk is flooded with press 
releases of new products in the 
microcomputer field. Every manufac- 
turer is trying to one-up the next and 
when it can't be done, they do their 
best to emulate the success of the 
other. "Now with CPM!", "6809, The 
Chip of the Future!", "The Sixteen Bit 
Processor Will Change Your Life!" ad 
infinitum — one must step back and 
contemplate what would happen if all 
of the copywriters of these releases 
were to be brought together in one 
room. Their claims are certainly less 
than compatible and yet all believe 
their way to be the only way. 

It is out of this sea of confusion that 
we on the SoftSide staff must distill 
our conclusions and take dead aim at 
the future. There is nothing so constant 
as change and we believe we can best be 
prepared for it by anticipating and 



steering its effect on us and you, our 
readers. 

On the Wednesday before 
Thanksgiving, the SoftSide staff 
gathered and chose the fourth system 
to be included in upcoming issues of 
the magazine. Initiating with the June, 
1982, issue, SoftSide will include soft- 
ware and associated material pertinent 
to the TRS-80® Color Computer. 
Based on the 6809 CPU, this system 
has been the subject of a large volume 
of mail and has shown a phenomenal 
growth in sales. 

What does this mean to you? The 
most important point is that we will 
not be decreasing the current volume 
of material for the Apple^^, 
ATARI® and the TRS-80® Models I 
and III. We will be including the TRS- 
80® Color Computer in our transla- 
tions and introducing original material 
for the system as it is available. We, as 
yet, have not made definite decisions 



concerning which BASIC (Color 
and/or Extended) will be the standard 
or the release dates for Color Com- 
puter editions of our media versions. 
We will keep you posted as we resolve 
those matters. 

At this point we are asking your 
help. If you are writing software for 
the Color Computer or have friends in- 
volved with the system, please pass the 
word and submit material as soon as 
possible. We must have several 
months' material under preparation 
simultaneously and would like to 
assure that we will be able to offer the 
highest quality product available with 
the June initialization. Don't hesitate 
to send for our free Author's Guide 
and read our "Attention Authors" col- 
umn carefully. 

A brief peek into the future — We 
currently project the additional system 
for SoftSide in 1983 to be the 
IBM® Personal Computer. © 



The Little Printer with Big Features 




SpGCif iCCltlOnS Conwl SO-Cdumn Dot Matrix Pitntef 



Print Foatures 


Number of columns 


Kdcol max 




Print Sp(.c<J 


12S CPS 




Print OircctJon 


SinBk--direcii()nal and Bidirectional Switch 
St-k-ctable 




Thrnu^pui Speed 
Form Feed Speed 


63 l-PM at BidirettionaJ Priming 
H) Li's 




Charaticr Formal 


- X " Dot Mairix 




Character .spacing 
(max. number of 
columns per line) 
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Form Uwding 
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The Comet-I is the lowest priced printer that we sell. 
The Comet-I has standard features that are optional on 
many other higher priced printers. Comet-I's print speed 
is an impressive 125 cps bidirectional, and print features 
include 4 character sizes, 4 different alphabets for inter- 
national use, a high-resolution 7x7 dot-matrix, and a 
print compression capability that enables the Comet-I 
user to switch between 5, 8.25, 10 and 16.5 CPI and to 
print up to 132 characters per 8-inch line. This paper 
saving feature is very desirable in today's data pro- 
cessing market. 

You'll find that the quality, performance and cost 
economy of this printer puts it ahead of any other com- 
petitive model in its price catagory, and it's ready for 
immediate delivery. 

Comet-I Printer, with Centronics-compatible interface 

#09-259005H $289.00 

Comet-I Printer, with RS-232C interface 
#09-259006H $289.00 

TSeHP^IIX 

14 South St., Mlltord, NH 03055(603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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ATARI® INITIATION 



Editor's Note: The ATARI® microcomputer is 
bursting on the scene with skyrocketing 
numbers. Robert L. Riggs offers the following 
comments on "Starting Cold with an 
ATARI® Computer." 

People are beginning to discover the amazing 
capabilities of the ATARI® computers. Very 
soon, there are going to be thousands of brand- 
new ATARI® owners, many of whom will be 
operating their first computer. They'll be looking 
at a new micro, a new language, new problems 
and hopefully, new triumphs. This is intended to 
help smooth the way, somewhat, for the new 
ATARI® owner. I remember what it was like and 
1 hope that my experiences and some words of 
advice can help more recent beginners. 

How do you get started with this micro 
marvel? First, read everything that comes with 
the machine. Set it all up and go through the 
ATARI® BASIC tutorial, page by page. Run all 
the little programs and fill in all the blanks. And 
don't skip the quizzes at the end of the chapters! 
Maybe you've forgotten how the learning proc- 
ess works with people of all ages (not just kids), 
but I haven't. 

Next, study the BASIC Reference Manual. 
After you've read it a couple of times, get a 
highlighter or two and mark it up for quick ac- 
cess. Go back to the computer store and buy 
every 6502-based magazine you can find. Check 
the tables of contents for ATARI® articles and 
programs. Read them from cover to cover, then 
study the articles on ATARI® . Type in all the 
programs and, when you don't understand 
something, get out the manual and work on it. 
Don't be afraid to call the Atari Customer Ser- 
vice number (800-672-1430) and yell "Help!" 

If you bought the Assembler-Edilor canridge, 
don't even open the box until you've called Atari 
and requested their "errata" booklet containing 
all the corrections and don't worry about 
Assembly Language anyway, until you've 
mastered the lOCB numbers, GET, PUT, and 
more. Join an ATARI® Users' Group if there's 
one near you, and don't be afraid to ask 
questions. 

If you're the super organized type, you can 
start a card file of articles in the magazines 
you've collected. Naturally, many of those ar- 
ticles are beyond your present capabilities, but as 
your expertise increases you're going to need to 
return to some of them for ideas and concepts 
that you failed to grasp earlier. You might begin 
with Compute!, Creative Computing, Micro, 
and SoftSide magazines. File headings might in- 
clude: Programs, Game; Programs, Utility; Pro- 
gramming Techniques; Languages; Hard- 
ware/Firmware; and Miscellaneous. You'll find 
that it's far easier when a problem arises to shuf- 
fle through your card file than it is to haul out 50 
magazines and reread them. 

Atari is constantly coming out with new 
manuals and updates. Give them a call once in a 
while, and find out what's new. Then order the 
materials you can use. 

Programs that you type in, especially when 
you make an honest attempt to understand what 
you're typing, are better than those you buy on 
cassette or disk for the purposes of your com- 
puter education. But the IRIDIS series from the 
Code Works in Goleta, CA, with their booklet of 
program listings, explanations, and even articles, 
is a fantastic exception to that rule. 
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Finally, don't give up! You've purchased a 
marvelously complex and exciting machine that 
will amaze and frustrate you as you attempt to 
solve its secrets, but will also reward you with 
mind-expanding experiences beyond all your ex- 
pectations if you keep trying. 

Robert L. Riggs 
Ventura, CA 



POKE MY WHAT? 

Dear SoftSide, 

1 am writing in response to your request for 
program conversions in the September issue of 
SoftSide magazine. I myself consider it a 
challenge to translate the various Apple and 
TRS-80® programs into ATARI® BASIC, and 
have been quite successful with several. 

There is one major obstacle that I face in per- 
forming these translations. 1 do not know what 
ceratin POKEs (and PEEKs) in the Apple and 
TRS-80® do (cursor on/off, screen clear, etc.). If 
you could identify their function in the operation 
of the program, then those of us who would like 
to translate the more difficult programs could 
figure out how to do particular POKEs on our 
respective computers. 

As the programs get more complex, (as they 
inevitably will), these POKEs (and PEEKs) 
become more important to a successful trans- 
lation. If this feature were incorporated into a 
program listing, I'd bet you would be deluged 
with clever iranslalions. 

Also a short feature on graphics comparisons 
of the three computers would help in translating 
and reconstructing graphics displays. 

As for all the mindless arguing that goes on 
about which computer is "better" than the 
other, I would like to add my piece. Each of the 
computers have their best features. If people 
spent more time sharing what they do know 
about their own machines than what they don't 
know about the others, we might better under- 
stand how they all operate. 

Eric Stouffer 



TAPE AND DISK DUPLICATION 

Dear SoftSide, 

Thank you so much for finally letting us know 
what problems are afoot in your software depart- 
ment (ref. Randal Kottwitz column, November 
issue). I have been a faithful reader of SoftSide 
since its first issue, and have always been patient 
with the then occasional cassette that re- 
fused to load. But you have to admit when every 
Adventure of the Month cassette (for example) 
has been unusable, a greater problem is present. 1 
have tried all the usual remedies, even investing 
in a fancy tape digitizer, which I can't recom- 
mend highly enough to my friends. Any tape that 
can't load with the Accu-Data just ain't gonna 
load, period! 

Two ideas come to mind — Using your present 
"technology," the duplication must be slowed. 



and a digitizer (analog to digital conversion) 
must be inserted between master and dupe. 
Otherwise it is impossible to drive a bank of 
cassette dupers directly from the computer. A 
computer-generated program is by far the best 
available, and you don't even need a fancy cer- 
tified cassette to boot! 

It is indeed unfortunate that the technology 
does not exist for high-speed digital duplication, 
but if you examine the audio industry, you'll find 
any high-speed duplication is unsatisfactory. 
Hence the move by Mobile Fidelity Sound and 
others to a real-time duplication of audio 
material. Most sound engineers will admit that 
any other method leaves too much room 
for error. 

Perhaps the computer software industry 
should take a closer look at its objectives. Should 
they produce a thousand questionable units a 
day, or 400 high-quality units that the customer 
can rely on? In the long run, it costs more in 
replacement and good will than the profit the ad- 
ditional few units can generate. 

I understand that some technology just needs 
time to catch up with the rest of the industry. But 
the time has come for us to smooth out the 
wrinkles in these smaller areas like duplication 
and marketing, which can only lead to better 
confidence and increased sales. 

Thanks for listening. 

Scott Daniels 
Rowley, MA 

Editor's Reply: We appreciate your suggestions. 
We did some cost analysis on your proposed 
duplication methods — the resulting figures In- 
dicated we could offer a verified, computer- 
generated, or real-time duplicated cassette 
subscription for approximately the same price as 
a DV subscription. A good measure of the in- 
creased cost of such methods is the premium 
price charged for the recordings produced by 
Mobile Fidelity Sound, and their equivalents in 
the audio recording field. 



ROSES AND THORNS 

Dear SoftSide, 

1 would like to make a few comments about 
SoftSide. I find that 1 enjoy the Programming 
Hints, the articles on technique, and the one 
liners the most. I also like the K-Bylers idea. 
Since the apparent demise of the Heavy Stuff 
(last seen about February), I like the short, casy- 
to-type-in items — I've entered too many games 
that turned out to be not worth the effort. The 
best article recently, however, was the one on 
reverse video in the August issue. It was well- 
written, a simple project, and the results are 
phenomenal! I doubt that you can match this ar- 
ticle, but keep trying. 

I would like to express my disappointment 
over the trend to disks. I've spent about a grand 
on the piglet so far ("pig" is a coWoquialism for 
mainframe); I can't find justifying doubling that 
just -to load Space Invaders faster (although if I 
could stay out of the arcade...) I realize that 1 
may be outnumbered. 

Although I do read some of the articles on the 
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ATARI® software, I generally pay no attention 
to the non-TRS-80® stuff. Especially business ar- 
ticles! My computer is for fun only. 

Geoff Dunn 
Lenox, MA 



Dear SoftSide, 

My concern deals with the October, 1981 , issue 
of SoftSide. In particular, the Apple program en- 
titled. Super Dairy Farming. Since May, when 
this program first appeared in the TRS- 
80® version, I have been waiting for the Apple 
translation so that I might type it in to use with 
my Middle School students. When, in August, 
the ATARI® translation appeared, I knew that 
the Apple version of this excellent simulation 
could not be far behind. When ray October issue 
arrived, and 1 saw that Super Dairy Farming v/as 
included, I rushed to my machine, anxious to 
start typing, only to find that this superb pro- 
gram was only included on the Apple Disk Ver- 
sion of SoftSide. 

That's what I call "dirty pool." I simply can- 
not afford to subscribe to the disk version of 
your magazine (much as I would like to), and I 
feel that SoftSide is depriving me, and my 
students, of this program. 

As much as I enjoy your magazine and eagerly 
await each issue, I certainly hope that SoftSide 
does not make it a habit of "whetting ones ap- 
petite," and then not coming up with the pro- 
duct. . 

Karen Ann Golubic 
Edinboro, PA 

Editor's Reply: We're always happy to hear from 
people who wait eagerly for SoftSide, and are 
sorry to hear of your disappointment concerning 
the Apple version of Dairy Farming. Although 
we often do publish translations of programs for 
all three computers, it has never been our inten- 
tion to do so with every program. The October 
issue contained listings of three excellent Apple 
programs apart from Super Dairy Farming, 
which we feel is quite a good value for the $3 
cover price (and even better for the $2 subscrip- 
tion price). Our Disk Version is intended to be a 
premium product, but not one available ex- 
clusively to DV subscribers. Back issues of the 
disks are always available and can be ordered us- 
ing the card elsewhere in this magazine. 



Dear SoftSide, 

Q: Why is it that each time I open up the new 
issue of SoftSide, I feel like the neglected step- 
child? 

A: Perhaps it's because I own an ATARI® ; 
and even though I pay the same subcription rate 
as the owner of a TRS-80® (see, I even refrained 
from calling it that "other" name), I get, the feel- 
ing that your organization showers most of its at- 
tention and affection on that computer as op- 
posed to mine. 

The latest issue of SoftSide is a supreme exam- 
ple of this insidious favoritism. I thought for a 
while that the programs in the magazine were 
starting to even out a bit — after nearly a year of 
pampering my computer's older brothers, TRS- 
80® and Apple — and then, BOOM! I receive the 
October issue — the long-awaited birthday issue 
filled with all kinds of exciting things, including 
an astonishing "breakthrough" in computer 
software. Unfortunately, the "breakthrough" is 
apparently meant only for the TRS-80® , with a 
follow up (of course) for the Apple, but nary a 
scrap for the poor, neglected younger brother. 

Is ATARI® a pariah or something? Why can it 
not share in this tremendous "breakthrough" 



which is going to revolutionize the software in- 
dustry? Doesn't seem like much of a revolution 
when it ignores a young, but brilliant, member of 
the family. 

But wait — there was something for the 
ATARI® in the October issue. Let's see now, 
what was it? Oh, yes; an article that explains how 
an ampersand can be made to look like a square 
block. It was useful information, to be sure, but 
rather elementary. Why not show us how to turn 
those little letters ("g" for ghost, "z" for zom- 
bie, etc.) into real, moving figures of ghosts, 
zombies, and skeletons the way the many- 
talented ATARI® can do so well? There was also 
a program about a naval battle that tries its darn- 
dest to look like a TRS-80® clone (e.g. , no sound, 
no color, no graphics). This, when the rest of the 
magazine is filled with information about a 
revolution in the industry that leaves us out! 

C'mon guys, your programmers are certainly 
more clever than that! I reahze that ATARI® is 
just a young member of the family and not near- 
ly as big and important (financially speaking) as 
his elder brothers, but oh my, what a new-comer! 
His abilities are new and under-used, but go far 
beyond those other two. Why not use those 
abiHties to help achieve a real revolution in soft- 
ware concepts? At the very least, give us our few 
scraps of ATARI® programming enhanced with 
the "ATARI® touch." Don't try to make him 
imitate his older brother, TRS-80® . You might 
ruin his creativity. 

Above all, don't kick him in some forgotten 
corner and ignore him. Remember what hap- 
pened to his well-heeled cousin, Cinderella; or 
Joseph, of the Coat of Many Colors fame. 

I must admit that I-String and Envyrn look 
very exciting. On the other hand, it's not going to 
be much fun watching the other systems take 
advantage of its possibilities while we 
ATARI® owners get one more program that pro- 
duces yet another spectacular, multi-colored, 
rotating "sunburst." 

Bob deWitt 

Editor's Reply: As you've stated, the 
ATARI® computer is a relatively young machine. 
It has taken it a full year to develop its represen- 
tation in SoftSide with an eye for quality. I think 
you'll agree we've given it an escalating amount 
of attention as the quality software is available. 
As for Envyrn for the ATARI® , I quote the pro- 
verbial software developers, "The project is in 
progress!" 



ONE-LINER SUBMISSIONS 

Dear SoftSide, 

I am writing on the subject of one-liners. I feel 
there is a problem with sending a tape or disk in 
with a program that only takes IK (or less) of 
memory. 

I created a one-liner; I would like to type it, 
but the rules require me to send a tape or disk 
with the one-liner on it. I believe you could get 
more people to send in one-liners if you would 
allow them to send it in on a typewritten sheet of 
paper. I believe that sending a typed letter with a 
one-liner in it is better economically because 
some people cannot afford to buy a new tape (or 
disk) just for a one-liner. 

I would appreciate a reply on this subject. 
Thank you. 

Robert Little 
Los Alamos, NM 

Editor's Reply: Obviously, any program written 
on media can be reviewed more easily, especially 
the lengthy ones. However, we have never re- 
quired that a one-liner submission be on tape or 
disk. 



ATTENTION 
AUTHORS 



SoftSide Publications is actively seeking 
programs, article and review submissions 
for the TRS-8(F , Apple and ATARI® 
home computers. This is a chance for pro- 
grammers as well as users to make some 
money to help pay for the "computer ad- 
diction" and get their efforts out where 
they can be appreciated. 

Programs — SoftSide has always been 
the leader in the field of BASIC software 
and BASIC remains our specialty. 
However, with the advent of Disk Version 
(DV), we can now also offer an outlet for 
Machine Language and multiple language 
programs which do not lend themselves to 
printed versions. Games, utilities and 
educational software, as well as any other 
applications for the home computer user 
are preferred, although we will consider vir- 
tually any type of program. Hybrid mixes 
of articles and programs also welcomed. 

When submitting a program, please be 
sure to include full documentation of 
subroutines and a list of variables, as well as 
a brief article describing the program. 

Reviews — Well written, informed 
reviews of all software for the systems we 
cover are a regular feature of SoftSide. 
Reviewers should take into consideration all 
aspects of a particular software package, 
from speed of execution to programming 
creativity to the estimated length of time 
that the product will hold the customer's 
interest. 

Articles — We welcome article submis- 
sions of all types, but prefer those 
specifically geared to the home computer 
market. We give our readers information as 
a first priority, but vary our content to in- 
clude some humor and commentary. 

All text, including documentation and 
descriptive articles for programs should be 
typewritten and double-spaced. Extra 
monetary consideration will be given to ar- 
ticles and reviews submitted on machine- 
readable media (Scripsit, Super-Text II, 
etc.). Programs should be submitted on a 
good cassette or disk. TRS-80® BASIC pro- 
grams should function under both Level II 
and Disk BASIC. 

Please be sure to pack your cassettes and 
disk carefully and to include your return 
address and phone number. 

Send to: 

SoftSide Publications 

SUBMISSIONS DEPARTMENT 
6 South Street 
Milford, NH 03055 
We regret that due to the volume we 
receive, we are unable to return submis- 
sions. 

Be sure to send for our Free Author's 
Guide. It further outlines the Specifics of 
our submission procedure. 

TRS-80 is a registered trademark of Tandy corporation. 
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A joyous 1982! This year promises 
to be yet another "Gateway to the 
future. " We hear that statement every 
year, and every year it becomes a little 
bit truer. The acceleration of 
technology in our culture seems to be 
never ending and we, as computerists, 
continue to be on the leading edge of 
the tidal wave. 



We would like to extend a belated 
welcome to the newest member of the 
SoftSide staff, Lynn Wood. Lynn 
joined us last month as our new pro- 
duction manager and illustrator. We're 
sure her contribution to SoftSide will 
delight your eyes. 

As I've stated before, the readers' in- 
put to SoftSide is extremely important. 
SoftSide is truly unique in the manner 
in which it speaks to you, our readers, 
as well as your computers. In order to 
continue to speak with an accurate 
understanding of our audience, we 
must continually update our files con- 
cerning your interests, lifestyles and 
equipment. Next month, we will be 
asking you to respond to the most im- 
portant poll we've ever printed. There 
are many possible changes being con- 
sidered for SoftSide. These include 
such possibilities as a sectionalized, 
system specific magazine which would 
contain more pertinent material for 
each system than we currently print. 
Another possibility would be to print 
the actual line listings, with the excep- 
tion of one top quality program 
translated for all systems, in a separate 
code book to be published concurrent- 
ly with each issue of the magazine. By 
isolating the line listings in a third 
"media edition," if you will, we could 
actually issue more programs per 
system per month, printing only the in- 
troductory articles, documentation, 
features, programming articles, and 
other related material in the "slick" 
magazine. I must emphasize that these 
are not definite plans, only projected 
possibilities. However, before any of 
these matters may be brought to in- 
telligent conclusions, we must know 
how you make use of the current Soft- 
Side. Watch for the poll next month 
and take a few moments to fill it out 



and return it to us. A magazine can re- 
main vital only as long as it speaks to 
the needs of its readers. Please help us 
maintain our vitality and we'll do our 
best to continue to please both you and 
your computer. 

I have recently attended several 
seminars concerning electronic/data- 
base publishing. There is no doubt that 
electronic data communication is truly 
the "voice of tomorrow." However, 
currently, there are many technological 
barriers such as slow baud rates, in- 
compatibiHty of data formats, etc., 
hindering the growth rate of such com- 
munications systems. In an effort to 
prepare you and us for maximum 
utilization of this new form of 
publishing, SoftSide will soon initiate a 
series of columns to take the reader 
from ground zero to a greater 
understanding of electronic data com- 
munications. I am anxious to hear your 
opinions and desired results from such 
a series. In addition, we are in the pro- 
cess of compiling databases for future 
use on SoftSide DV and for dial-up ac- 
cess. We are currently researching the 
best methods for compilation of such 
data and will keep you informed as 
more details are available. 

Some of you who have been with us 
since December of 1978 may recognize 
the photo/illustration on page 59 of 
this issue, the opening of Vici. The 
same photo was used as the cover of 
that December issue, featuring a 
program called Santa Paravia En 
Fiumaccio. Santa Paravia has since 
become a successful commercial pro- 
gram for Instant Software, translated 
for five different computers. The prin- 
ciples of the simulation live on. There 
are a large number of schools using the 
simulation as an introduction to 
economics. Many advances have been 
made in BASIC programming since we 
published Santa Paravia and we believe 
Vici to be an excellent example of 
utilization of those advances. 

Take a seat at your computer and en- 
joy this month's jam-packed issue. 
Happy Hacking! 
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K-Byters 

ANOTHER 

PROGRAMMING 

CHALLENGE 



Some time ago SoftSide began in- 
viting its readers to submit "One 
Liners" — self-contained single-line 
programs for the TRS-80®, Apple, or 
Atari which would provide a con- 
tinuously changing graphics display. 
The response has been excellent, and 
we're still looking for more submis- 
sions. 

Now we have a new challenge for 
you as well: "K-Byters." A K-Byter 
is a BASIC program which fits into 
IK (1024) bytes of program memory. 
There aren't any restrictions on the 
nature of the program, other than its 
size. It can be a graphics display, a 
game, a mini-adventure, or anything 
your imagination and programming 
skills can create. 

Note that the program does not 
have to RUN in IK of memory; it can 
use as much RAM for arrays, strings, 
graphics mapping, etc., as you need. 
We'd prefer that it be able to run in a 
16K system, but this is not an ab- 
solute limit. 

Here then are the official rules: 

1 . The program must be written for 
the Apple, TRS-80®, or Atari, entire- 
ly in BASIC (although it may create 
and call Machine Language 
routines). 

2. The program must occupy no 
more than 1024 bytes of memory 
before running. 

3. The program must be submitted 
on tape or disk, accompanied by your 
name, address, phone number, and a 
brief written description of its oper- 
ation. 

4. The tape or disk will be returned 
only if accompanied by a self- 
addressed envelope with adequate 
postage AFFIXED (do not send 
money). 

5. Winners will have their pro- 
grams published in SoftSide and will 
receive a $10 software certificate for 
their programming excellence! 

Send submissions to: 

K-Byters, c/o SoftSide 
6 South Street 
Milford, NH 03055 
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A DIVISION OF SCOTT ADAMS, INC. 



BOX 3435 • LONGWOOD, FL 32750 • (305) 862-6917 

ORDER FROM YOUR FAVORITE DEALER 
or CALL TOLL FREE (800) 327-7172 
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PRICES SUBJECT TO CHANGE WITHOUT NOTICE 
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TRS-80* 

Model' 1 &3 

16K and up — Tape 

010-0102 $24.95 

32K and up — Disk 
012-0102 $29.95 
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ONE BYTE, MORE OR LESS 

I was very interested in Bob Howell's The One 
Liner Challenge (SoftSide 9/81) and grateful for 
his suggestion of saving the program as a REM 
to preserve the abbreviations, etc. Although the 
one idea I've tried just wouldn't fit, my style re- 
quires frequent packing of many statements in 
one line and I can use the idea at those times. 

Working in this field is like a curve ap- 
proaching an asymptote; no matter how strongly 
you feel you've squeezed the last excess byte out, 
someone always comes along and shows you how 
to do better. For starters, Bob's POKE82,0: 
gives you two extra characters per line for a total 
of six. However it costs nine, for a net loss of 
three. There's no need to give up those six, 
though. The POKE, like the REM, is needed 
only for editing, not at RUN time, and needn't 
be in the program at all; it can be typed first in 
direct mode. 

A tighter method of alternating a variable be- 
tween and 1 than A = ABS(A-l)isA=l-A(and 
it's faster too). 

The statement that ATARI® BASIC will 
handle FORI = lTON'2STEP2 because "... the 
last character before STEP is numeric" is inac- 
curate. It's because the item begins with a 
numeric symbol. In this case the first character is 
also the last, but it's the first that's important. 

For performing the first part of the program 
twice, F.I = 1T02...N.I takes three less spaces 
and can handle more go-rounds than the ON A 
GOTO even with the improved alternator. 

When it comes down to it and you're still a few 
characters short, you can drop the REM and 
even the line number if necessary (I don't know 
how you could get it on tape or disk then, but it 
doesn't seem to violate any rule.) 

I'd thought of using the "." abbreviation for 
REM, but LISTing changed it back. This brings 
up another point though. All the micro mags 
seem to be unable to adequately represent a space 
in typeset copy. Even when giving examples of 
coding with and without a space, it almost takes 
a magnifying glass to see the difference. Can't 
you instruct your typesetters to use two or three 
spaces if necessary to approximate the width of 
an average character? 

I've always wondered why you restricted your 
One Liners to display demos, and was glad to see 
that requirement dropped for your new 
K-Byters. The One Liner attempt described 
above was expanded and probably fits in IK. It 
demonstates an ATARI® special feature and is 
also a useful program. However I don't have any 
spots on the wall I need to hide. 

Next to articles/programs which give me new 
information on my ATARI® (all too rare since 
the sample issue that convinced me to subscribe), 
my favorite part of SoftSide is The Sensuous 
Programmer by "J". I admire the breadth of his 
knowledge of the three micros he covers. 
However in his September column, its depth 
failed him and made the ATARI® seem decidedly 
inferior to the others when it comes to keyboard 
input. Firstly, his suggested six statement routine 
(as opposed to two or three for the other micros) 
checks for signs or a decimal point, but the 
presence of these does not insure that a digit 
follows, so the program could still bomb. The 
statement that RETURN-only input leaves the 
input string unchanged is true about some micros 
(I remember reading it also) but it isn't the 
ATARI® . 
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The answer to the input problem is to use the 
TRAP keyword, covered in another context 
later in the column, but rather disparaged. 
Here's how: 

100 TRAP 10000: INPUT A 
10000 BOTO 100 

This will handle numeric input directly, and 
resets the TRAP before each use. One caution: 
unless the following routine(s) set their own 
TRAPs, turn off the TRAP after the successful 
input'with a "TRAP n" where "n" is any value 
between 32767 and 65535; this will prevent sur- 
prise returns to 100 if an error occurs elsewhere 
in the program. 

Although it appears not to be part of the prob- 
lem "J" was addressing, I would like to add that 
in most circumstances it is advisable to warn the 
user of a mistake via sound, color, and/or 
displayed message, so he or she can correct the 
error. 

Bill Friedman 

Editor's Reply: We are trying to use LISTings 
from a printer whenever possible. This reduces 
the likelihood of input errors. When a LISTing 
might be typeset, we try to approximate the 
actual spacing from the CRT as accurately 
as possible. 



FLIP IT AGAIN, ATARI® 

In your September, 1981, issue, the game Flip 
It will run on the ATARI® with only 16K 
memory by eliminating the lines 5000-5130 
inclusive. 

The following lines should be changed. (This 
will put the sound through the TV speaker in- 
stead of the computer speaker.) 

llfcS FOR Z=l TO iiSOUND 3,50,10,10:NEX 
T Z:SOUNB 3,0,0,0:RETURN 
200.3 FOR B=l TO 60:K=A!B) :n=7t (MNTI 
X/10) 1107+7: Yl=:INT(X/10)t5-3:S0UND 3,7 
5,10,3:S0UND 3,0,0,0:L0CflTE n,Yl,2 
2050 FOR M TO 20:NE)(T X:PRINT :PRINT 
"WANT TO PLAY AGAIN?"; :POKE 764,255 
3000 FOR C=l TO B:n=7»(X-INT(X./10)tlO 
)t6:Yl=INT(L''10)t5-3:S0LlND 3,75,10,1:3 
OUND 3,0,0,0:GDSUB 2990+20»C:NEn CiRE 
TURN 

Walter J. Korzyk 
Albany, NY 

MORE GAS PER LINE 

This One Liner calculates gas mileage. The 
only real sneaky thing is the use of the "PRINT 
USING" command, which rounds the answer, as 
well as limits the number of decimals that 
print out. 



BBS LPRINT" START"TAB(12)"END''TAB(22)i 
SoftSide 



;LPRINT"SfiL"TAEi.3U"f!PS":INPUT"FIRBT F 
ILLUP"!F:FORI = 1T02STEPO:INPUT''NE)(T FIL 
LUP";£:INPUT"GALL0NS";G:I1=S-F:PRINT"«P 
B = ";:PRINTUSING"#».litr';l1./G:LPRINTFT 
AB(10)STAB(20)GTAB(30);:LPRINTUSING"«t 
.tt»«";M/G:F=B:NEXTI 

Geoff Dunn 
Lenox, MA 



AT A POKES NOTICE 

In reference to your article Mixed Text and 
Graphics in HGR2, (September, 1981), there is a 
simple solution to relocating your Applesoft pro- 
gram (almost) anywhere you desire. 

Locations 67,68 HEX, or POKE 103,104, con- 
tain the starting address, low order byte, and 
high order byte of an Applesoft program. For ex- 
ample, by changing locations 67,68 (normally 
01,08 HEX) to 01,60 your program will be 
loaded just above Hi-Res page two. 

One problem is that these changes can't be 
made from within your original program. Where 
there's a will, there's a way. Simple, just write a 
short program to load your program and make 
these changes. Here's a short example: 



INPUT "NAME OF FROGRflll "iNHt 
POKE 103,1: POKE 104,96 
PRINT CHR$ i4i;"RUN ";NI1$ 



From then on, until you reboot or power down, 
any Applesoft program will be loaded at the new 
address. Save it to disk and it will be ready at a 
POKE'S notice. 

A few other locations to POKE around with, 
should the desire strike you: 



HEX 

67,68 

69,6A 

6B,6C 

6D,6E 

AF,B0 


DEC 

103,104 

105,106 

107,108 

109,110 

175,176 


Explanation 
Start of program 
Start of variables 
Start of arrays 
End of arrays 
End of program 


CA,CB 
4C,4D 


Integer 
58,59 
76,77 

Binary 


Start of program 
End of program 


AA72,AA73 
AA60,AA61 




Start of program 
Length of program 


I hope this helps. You guys put out one heck of 
a magazine. Have fun. 



W. K. "Rocky" Shryock 
Grants Pass, OR 



ATARI® JOYSTICK AND THE TRS-80® 

I have recently purchased an Alpha Products 
ATARI® joystick that has been adapted to work 



on any TRS-80® Model I. The joystick works 
quite well, especially with the numerous arcade 
games by Big Five Software, all of which I own. 
I do have a modification of the October, 1981, 
SoftSide program, ABM Command by Arnold 
E. van Beverhoudt, Jr., allowing the game to 
utilize the TRS-80® ATARI® joystick. Lines 
6020 to 61 10 need be changed to the following: 



6020 


w=: 


INP(O) 




6030 




W=239 GOTO 6150 


6040 




W=254 GOTO 6170 


6050 




W=247 


GOTO 6190 


6060 




l<l=253 


GOTO 6210 


6070 




W=251 


GOTO 6230 


6080 




W=250 


GOTO 6250 


6090 




W=246 GOTO 62B0 


6100 


IF lil=249 


GOTO 6310 


6110 




W=245 GOTO 6340 



If you own a TRS-80® Model I with Expansion 
Interface, and if you use cassette port #2 for 
sound, change line 3060 so that you POKE 
14308,1. 

The ABM Command game is slow, and I ran 
my Packer program from Cottage Software, 
which speeds up the game considerably. 

John M. Delaney, Jr. 
Wood River, IL 



IMPROVING WORD CHALLENGE 

I recently entered the TRS-80® version of 
Word Challenge from the September, 1981, issue 
of SoftSide. It is a very enjoyable and challeng- 
ing game, however, there were two areas I felt 
could be improved. 

The first is the flashing word definition and 
graphics display when a game is won. This is nice 
to watch the first two or three times, but after 
that I found that it tended to slow the game 
down. I made the following changes to cor- 
rect this. 



ADD— 214IFINKEY$ = 
DELETE — 230 
CHANGE — 235 GOT08 



CHR$(13)THEN220 



These changes allow the player to break out of 
the game won display by pressing the enter key. 
I also had difficulty remembering which 
player's turn it was. The following modified line 
79 prints a left-pointing arrow beside the initial 
of the player whose turn it is. 

79 IFPL=0THENPRINTi89e, CHRl (93) ; : PRINT 



3902, 



:ELSEPRINT3902,CHR$(93)::PRINT 



J89B," ";:T=T+li 
INT3)l+YU4," "; 



IFT>=215THENPL=PL+li 
K=4!Y=1:D=1:GQT078 



PR 



Alan Haines 
Victoria, EC, Canada 



BRRRRRACKKK 

Although I have found very little about the 
ATARI® which I don't like, one of the minor ir- 
ritations is the repeated "brrrrrackkk" sound it 
makes while LOADing or SAVEing to and from 
cassette. I have found a way to overcome this. 

Once the machine is CSAVEing or 
CLOADing, you can press CTRL and the 



number 2 (at the same time), which is designed to 
give you the buzzer sound. You can then turn the 
sound down on the television so you won't have 
to listen to the repeated data stream doing its 
data-streaming, and when the READY shows up 
on the screen, the buzzer command will be exe- 
cuted. This is your machine, notifying you that 
your CSAVE or CLOAD operation has just been 
completed. 

I hope this can be of use to the many 
ATARI® users who read your magazine. They 
will probably find, as I have, that it is more calm- 
ing to the family's nerves than to the user's. 

Leonard E. Buchanan 
APO, NY 

A BEAST BY ANY OTHER NAME . . . 

Since my first encounter with SoftSide in June 
of 1979, I have admired and enjoyed your 
magazine. At first 1 did not totally agree that the 
"new" format was such a great idea, but now I 
have begun to think that the change was for 
the better. 

In Hints and Enhancements in the November 
issue, I stumbled on New Dungeon for Quest I 
and immediately typed it in. I found there was a 
lot more to expect from the game, other than it 
was great. I started, went into a room, and had 
to combat five Wraiths and the treasure was only 
"worthless odds and ends." 1 also found that the 
words Ore, Giant, etc. were getting old. If it is 
any help or enhancement to your readers, here 
are the changes that I made. 

You could edit all of the data statements, 
deleting all of the last elements and delete the 
",T1(X)" or just change line 615 to read: 

615 READ Hl!?i,t12(KiJ!i);i:Tl(XJ=RMD(8 

):NEXTK 

This will generate a random treasure. 
I also changed line 110 to read: 

110 DATA GIANT RAT, R,2, GOBLIN, G, 3, HDBG 
OBLIN,.H, 4, MINOTAUR, «, 6, BUGBEAR, B, 7, TRC 
LL,T,8,VAHPIRE,y,9,YGL!NG DRAGON, D, 9. 9 

I'd Hke to thank you at SoftSide for putting 
out a great magazine, with few advertisements. 
Keep up the good work! And if I may, thanks to 
Brian Reynolds and Tigre Wenrich. 



Kevin McHugh 



APPLE PUFF AND TAB 



1 enjoyed Randi J. Rost's Apple Puff in Hints 
and Enhancements {SoftSide, November, 1981). 
However Randi's program will only run error- 
free if A$ in line 20 is exactly 40 characters long. 
Any message length less than 40 characters will 
cause a BAD SUBSCRIPT error in line 50. 

I made the following changes to allow any 
message from 1 to 40 characters in length to run 
error free. 

ADD line 45 L = LEN(A$) 
CHANGE line 50 from B$ = A$(2,40) to 
B$ = A$(2,L) 

CHANGE line 60 from B$(40) = A$(l,l) to 
B$(L) = A$(1,1) 

If the message is going to be less than 40 
characters in length, add an appropriate TAB 
statement after the VTAB statement in line 30. 
This will center the message on the screen, giving 
a nice, neat-appearing message. Line 20 could be 
changed to an INPUT statement (with ap- 
propriate screen formatting commands) to allow 
new messages to be used by merely rerunning 
the program. 

One correction (I realize it was a typo): line 80 
should read GOTO 30, not 60 TO 30. 
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As a subscriber, I thoroughly approve the 
changing format. You're good, and getting bet- 
ter. Thanks for an interesting magazine. 

Nick DiMarco 
Gillette, NJ 

RENUMBER YOUR APPLE 

The RENUMBER utility program supplied 
with Apple DOS 3.2 and 3.3 has an insidious bug 
— after you use RENUMBER, your program 
may still appear to run perfectly, so you may not 
even notice that your program's operations have 
been altered! RENUMBER will correctly change 
all line number references to agree with the new 
line numbers. Unfortunately, RENUMBER may 
also alter any number in an arithmetic expression 
which (a) follows an asterisk (the multiply 
operator), and (b) has the same value as a pre- 
RENUMBER line number. 

1 obtained the corrections for the DOS 3.2 ver- 
sion from the Apple Hotline in May of 1980. 1 
just discovered that the problem still exists in the 
DOS 3.3 version, and I am still seeing letters in 
various magazines from perplexed Apple users. 

The fixes for the DOS 3.2 and DOS 3.3 ver- 
sions of the program are similar — they involve 
swapping two data values in the program, as 
follows: 

DOS 3.2 DOS 3.3 



From BASIC 



From monitor 



POKE 4815, 172 : 
POKE 4816,171 



' 12CF: AC AB 



POKE 4789, 172 : 
POKE 4790, 171 



12B5: AC AB 



To permanently correct the RENUMBER pro- 
gram, you must: 

(a) LOAD RENUMBER 

(b) Do the two POKEs for your version of DOS 

(c) SAVE RENUMBER 

All Apple owners should take note of these 
fixes — even if you don't use RENUMBER, 
you'll be able to help out the next guy, who may 
not have read about this problem! For your 
future reference, Apple dealers have a loose-leaf 
notebook which answers commonly-asked ques- 
tions — including, "What's wrong with 
RENUMBER?" You just have to know to ask. 

The latest issue of Apple Orchard indicates 
that the two locations to be POKEd for RAM 
Applesoft RENUMBER are 14342 and 14343. 

Robert C. Leedom 
Glenwood, MD 



SAVE FORMAT 

If you have ever recorded programs on a 
cassette and have forgotten what format they 
were saved in (i.e. BASIC, machine code, or ED- 
TASM source code) or have forgotten the 
filename, then this short program is for you. 

10 CLEAR 600 

20 INPUTI-1,A$ 

30 IF ASC(HID$(A*,2,l))=211 PRINT'BASI 

C PROSRAH CODE - FILENAWEs "'jWlimM.A 

,1):END 

40 IF ASC(A«)=85 PRINT'SYSTEH - HACHIN 

E CODE - FILENAHE: ■;HIDt(At,2,6)iEND 

50 IF ASC(A«)=211 PRINT'EDTASH SOURCE 

CODE - FILENAHE; 'jHIDf (A«,2,&):END 

60 PRINT'FORHAT UNKNOWN - DATA?" 

70 END 

Quentin Barnes 
Chester, IL Q 
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July Adventure of the Month 
Alien Adventure 

You are the sole survivor of a crew 
on a mission to deliver a cargo of oil to 
Earth. A crash landing has left you 
stranded on a small planet, harshly 
alien but rich in lead, gold and 
platinum. You must find provisions and 
a means of leaving the planet. But 
beware of the THING that massacred 
your crew! 



August Adventure of the Month 
Treasure Island Adventure 

You are a hardy adventurer in search 
of fame, fortune, and whatever else you 
can get. You find yourself on an island 
where there is rumor of pirate's 
treasure. But watch out for the evil 
magician and the underground torture 
chamber! You may end up in a spot 
where all roads coming into it are pav- 
ed with good intentions. . . 



September Adventure of the Month 
Jack The Ripper Adventure 

Jack the Ripper is running rampant 
in London and you must stop him! 
Scotland Yard demands that you take 
action, and the only answer is to set 
yourself up as a decoy. Be careful how 
you plan your costume, or dear Jack 
will laugh hysterically and leave you in 
the dust! 





October Adventure of the Month 
Crime Adventure 

Test your skills as a detective by sif- 
ting through hundreds of clues. You 
may have to become the new Sherlock 
Holmes to solve this one! Look for the 
strange, but don't overlook the ob- 
vious, as you try to find Mrs. Fenwick 
and return her to where she belongs. 
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November Adventure of the Month 

Around the World in Eighty Days 

Adventure 

Try to repeat the feat of the classic 
novel, complete with a balloon and 
other exciting features of the original 
adventure. Are you ready to take the 
challenge? Bon voyage! 
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December Adventure of the Month 
Black Hole Adventure 

The crew of an interstellar craft 
discovers the long-lost Deep-Space 
Probe One, the Cygnus, at the edge of 
the vortex surrounding an immense 
black hole. See if you can foil the plans 
of Dr. Hans Reinhardt. 



will start here 




JANUARY ADVENTURE OF THE MONTH: 
WINDSLOE MANSION ADVENTURE 

In the dungeon of Windsloe Mansion the world-famous Pumpkin 
Man Is being held prisoner. An underground passage connects the 
mansion to the Blair house, whose owners have agreed to assist you in 
rescuing the prisoner. Will you succeed in overcoming both the human 
and the supernatural creatures who are rumored to inhabit Windsloe 
Mansion? 



Subscribe to Adventure 
of the Month 



How would you like to go back in time to 
19th century London to match wits with 
Jack the Ripper? Out into space to brave 
the swirling vortex of a black hole? Into the 
depths of the ocean, or on a quest to 
rescue a beautiful princess from the 
clutches of evil monsters? 

You never know where SoftSide's 
Adventure of the Month might take you. But 
you can be sure that each month you will 
experience new delights and new 
challenges as you receive an original 
adventure on tape or disk, ready to load 
into your computer. 

The cost? A six-month membership is 
just $27 for the tape ($4.50 per adventure) 
or $45 for the disk ($7.50 per adventure). If 
you're not sure that you can take six full 
months of excitement, you can order a 
single tape for $6 or a disk for $9. Or, if 
you're especially adventuresome, we're 
offering two disks, each packed with three 
great adventures, for only $24 per disk. 

Please use the coupon below (or the 
bind-in card in this issue) to order. 



Adventure of the Month 

6 South Street, Milford NH 03055 



—\ 



Yes, I'm ready to start! Send me Adventures — 

I Six month subscription: 

n Cassette ($27) 
n Disk ($45) 
I Individual adventures (please specify) 



D Cassette ($6) 
D Disk ($9) 
■ Three adventures on one super disk ($24 each): 

n Arabian, Alien, & Treasure Island Adventures 
QJack the Ripper, Crime & Around the World Adventures 
Please specify which computer: 

D Apple (req. 24K for tape, 32K for disk) 
D ATARI® (req. 32K for tape, 40K for disk) 
□ TRS-80® (req. 16K for tape, 32K for disk) 



Name 

Address _ 
City/State . 



D Payment enclosed 

D MasterCard D VISA Name of Cardholder . 

MC#andlnterbank#/VISA# 

Exp. Date Signature 



-^ip- 



Prices subject to change without notice, Apple, ATARI® and TRS-80® are registered 
trademarks of The Apple Computer Company, Warner Communications and The Tandy 
Corporation respectively. 
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by Scott Adams 



When we last met, I was talking 
about the difficulties I surmounted 
while transferring my Adventures from 
the Apple to the ATARI® . I left off 
with the Apple source and data files 
residing on an eight inch TRS- 
80® Model II disk. 

The problem, as you remember, with 
transferring from the Apple directly to 
the ATARI® , was that the speed on the 
Apple RS232 card was constant. 
However, the ATARI® would get data 
into its off-board RS232 port, transfer 
it over a special audio serial line to the 
main computer, into my tranfer pro- 
gram, then into memory. My transfer 
program would then output the data 
through the audio serial port to the 
disk drive. The disk drive would then 
transfer the data to the diskette. 

The ATARI® is a really fine personal 
computer, but because of its use of an 
audio serial bus to link up to outside 
peripherals, it has the slowest disk 
drives in the industry. For example, a 
full disk copy from one drive to 
another takes about eight minutes to 
complete! What I needed was a pro- 
gram which would transmit some data 
and wait before continuing. 

Miracle of miracles there exists such 
a program for the Model II TRS-80® . 
It's ST-80 III by Lance Micklus. 
Lance's industry standard program has 
a special mode called "Veriprompt""^^" 
which will output one line of data, then 
wait for the receiving program to 
transmit a character before continuing. 

It was a simple matter to write an 
ATARI® BASIC program to receive a 
line of data, store it on disk, and then 
request more to be sent. In this man- 
ner, I went ahead and transmitted all 
the Assembly Language source files 
and different Adventure data files to 
the ATARI® . Finally, phase one was 
done and I was ready to start re- 
writing Adventures to run on the 
ATARI® computer. 

Except for simple things such as 
page heading controls and so on, I 
found the assembler source code from 
the Apple version of my Adventures 
would assemble nicely using the stan- 
dard ATARI® Editor/ Assembler car- 
tridge. So I was ready to start getting 
the program to run on the ATARI® . 

Since both the Apple and ATARI® 
use the 6502 computer processing chip, 
the only real changes I needed to make 
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were to the I/O (input/output), as each 
computer handled them differently. 
The major I/O sections that my 
Adventures use are: save game, player 
input, and screen output. 

Save game was simple to convert us- 
ing the routines built into the 
ATARI® 's operating system and was 
no problem at all. The same was true 
for the keyboard input routine. 

When I got to the screen routines, it 
started getting interesting. Adventures 
use split screens on the Apple and I 
wanted to maintain this feature on the 
ATARI®. Unfortunately, the Apple 
has a memory map video area. This 
means a certain area of regular 
memory is set aside as a window. If 
you place a character into this 
memory, it then automatically appears 
on the CRT screen. The ATARI® on 
the other hand doesn't set aside a par- 
ticular area of memory for its video 
output. Instead it has a pointer which 
can be moved to any area in memory, 
and depending on the graphics mode 
selected and even on the number of 
carriage returns per screen, will deter- 
mine the amount of memory used! 

Every time (in graphics mode 
which is just standard text) a carriage 
return is put to the screen, a logical line 
is set up. Each logical line may be up to 
160 characters long though total screen 
size is only 40 characters by 24 lines 
(physical screen size is same as 
the Apple). 

What I finally ended up doing was to 
allow the ATARI® to build me a stan- 
dard 40- X 24 character display list and 
give me the starting address. 
Thereafter I accessed that memory area 
directly like I had done in the Apple 
and that was that! 

The final thing I did on the 
ATARI® was define an alternate 
character set. The ATARI® has a 
pointer which directs the hardware to a 
memory area that contains the bit 
mapped font for the character set. It is 
simple to define one's own character 
set in RAM and point the pointer 
there. This I did with my Adventure 
script font I had developed and it 
worked quite nicely! So I finally had 
my Adventure series running on the 
ATARI® . I'm tempted to tell you of 
my latest conversion project which was 
to the new Commodore VIC-20 com- 
puter, but I think I will spare you! 
SoftSide 



Next, I'd like to share something 
nice that just happened here at Adven- 
ture International. I'm sure by now 
you realize software publishing is a big 
business and with the rewards come 
many of the headaches. 

Licensing, lawsuits, and copyrights 
are some of the myriad problems that 
come up. Another is names! You come 
up with a great new program and it's 
ready to market. Now you must pick a 
name for it. The problem that arises 
is: Has someone else already used 
that name? 

There is really no fool-proof way to 
find out. You can run searches which 
start at $800 a name and up, you can 
look through source books, and ask at 
shows. But basically it just comes 
down to crossing your fingers! 

Recently, we introduced with much 
fanfare a fantastic game for the TRS- 
80® called Starfighter. We've spent 
thousands of dollars advertising, 
packaging and promoting the program 
in general. Well, yesterday, I got a bit 
of a shock. 

A letter in my "IN" basket con- 
tained two sheets. The first was a copy 
of page 163 in 80 Microcomputing, 
July, 1980. In the middle was an ad 
and circled on the ad was *STAR 
FIGHTERS — Destroy Robot 
Fighter's Mother Ship. 

Oh great, I thought, we've got a 
problem now. Just what we need! I 
then turned to the accompanying letter 
and read: 

Mr. Scott Adams: 

We probably should not both have 
"Star Fighter" games on the market 
(see enclosed magazine page). 

Since I'm a nice guy, I will take steps 
to change the name of my program in 
future ads and documentation. If 
you're a nice guy, you could be of 
assistance to me in the marketing and 
distribution of games for the TRS- 
80® Color Computer. Enclosed is a 
cassette and instructions for one such 
game, "Brickaway." 

Thanks 
Britt Monk 

All I can say is — Thanks Britt. You 
are indeed a nice guy! 'Til next month . 
. . Happy Adventuring! 



nsfBrnmra* 



And 

Then 

There 

Were 

Nine 

by "J" 




Bugs. In the natural order, they far 
outnumber us more intelligent 
creatures. And despite their miniscule 
size, it requires a phenomenal amount 
of our time and other resources just 
to maintain an uneasy standoff 
with them. 

So it is with the other kind of bug, 
the kind that every computer user 
knows intimately. Just when you think 
you've got them beat, they attack with 
a vengeance. Often in the most embar- 
rassingly painful places. 

Most programmers spend a lot of 
their programming time (and some of 
their sleeping time) poking around in 
their programs (and those of other pro- 
grammers) trying to unearth bugs, 
worms, and other undesirables. People 
who edit computer software magazines 
(not to mention any particular ones) 
cringe inside every time a program 
listing is published, knowing that any 
program over six bytes long is bound to 
have some kind of flaw that survives 
detection by programmer, reviewer, 
tester, and copy editor. Add to those 
flaws the ones introduced in the glare 



of a bare bulb at 3:00 a.m. via the 
bloodshot eyes, numbed brain, and 
stiff fingers of a haggard typist, and 
you have the stuff of an exterminator's 
wildest fantasy. 

There are at least four distinct types 
of bugs which attack computer pro- 
grams. One type is produced by a flaw 
in the programmer's logic, so that 
under some circumstances the program 
does not in fact do what it is supposed 
to do. A second type is caused by 
mistyped characters of one sort or 
another — which can have a wide 
variety of effects, from the very ob- 
vious to the very subtle. A third type is 
caused by trying to use the program 
with a system or in an application 
which was not intended by the pro- 
grammer. And a fourth type is caused 
by some flaw or glitch m the magnetic 
and electronic media where the pro- 
gram is being stored and processed. 
Although these last two are not really 
bugs in the program itself, the user still 
perceives them as bugs, since the pro- 
gram does not run properly. 

SoftSide 



Now, if bugs would only identify 
themselves as being one of these three 
types, we debuggers would lose a lot 
less sleep. Unfortunately, when a prob- 
lem surfaces in a program, it's often 
far from obvious where the source of 
the problem lies. Even an apparently 
"obvious" system error message such 
as "SYNTAX ERROR IN 1000" 
might result not from a mistyped 
character, but from such things as a 
failing or loose RAM or ROM chip, a 
power line surge or nearby static 
discharge, a glitch in the tape or disk 
from which the program was loaded, 
the alteration or addition of some 
other program line, or trying to run the 
program in a system with inade- 
quate memory. 

Debugging is an exercise in detective 
work. The most obvious clues, such as 
the error messages generated by the 
computer, are sometimes misleading 
(though usually very helpful). And 
often the majority of your clues are 
quite circumstantial in nature, leaving 
you to do a great deal of guessing and 
groping for the real culprit. My only 
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Man for man, the Israeli 
army and Napoleon's 
Grande Armee are two of 
history's finest fighting 
forces. SSI's latest games 
recreate both In meticu- 
lous detail — complete in 
every facet except one: 
We've left them leaderlesa, 
Now we need someone tO; 
take the hehn of com- 
mand - someone like yo' 



SOUTHERN 
COMMAND" 
Job Description 

Superb color Hi-Res 
graphics reproduces the 
setting for this battaUon- 
level game which recounts 
the Israeli counterattack 
to cross the Suez Canal 
during the October War of 
1973 agaUiBt Egypt 

The 28-by-39 hex-grid 
map of the Sinai can be 
viewed as one strategic 
screen or In twelve 





SS9.98 



separate screens using 
scroUing. 

As the Israeli com- 
mander, you have to 
smash past enemy strong- 
holds, cross the Suez, and 
eatabUflh a bridgehead. In 
order to accomplish this, 
your armor, artUlery and 
infantry units — along 
with your alrstrikes — 
must successfully protect 
the slow- moving bridging 
units as they push 
towards the Canal 

Tlie Egyptian com- 
mander's goal is to stop 
jrour advance using the 



which Include the potent 
SAM missiles. His air 
force can be called upon 
to negate yoior aerial 
threat 

To reflect history accu- 
rately, Egyptian and 
Israeli forces differ in 
eflBciency level and 
strength points. A imiq\ie 
"delayed move" feature 
allows for ambushes with 
infantry and artUlery. 

Thanks to machine- 
language programming, 
the computer can rapidly 
and efficiently calculate, 
display, and implement 
combat results to give you 
a fun and fast-moving 
game. 

You never need to worry 
about being out of action 
for lack of a playing part- 
ner. The computer can 
direct the Egyptians and 
play you at any one of 
four levels of difficulty. So 
whether you're a novice 
or veteran gamer, you're 
guaranteed a challenging 
match- 

If you feel you have 
■wrtiat it takes (and don't 
wish to relocate In the 
Middle East), get 
SOUTHERN COMMAND 
today and the job is yoursl 



NAPOLEON^S 
GAMPiaGNS: 
1813 & 1818"* 

Job Description 




This advanced-level, 
board-assisted computer 
simulation presents a 
leadership opportunity 
where experience In 
strategy gaming really 
helps. Aside from fully 
appreciating the pains- 
taking detail and design 
efforts we've put Into the 
game, a hardcore strate- 
gist can more effectively 
deal with the complexity, 
fpuBtrations, and uncer- 



tainties inherent In 
Napoleonic warfare. 

Leipzig and Waterloo are 
the two campaigns fea- 
tured Like Napoleon, 
Schwarzenberg or 
WeUlngton, all your com- 
mands are sent to 
your troops and 
InformaUon about 
them received via 
dispatch. Knowledge 
of troop positions 
and estimates of 
enemy strength 
are only as good 
as your recon- 
naisajQce patrols. 
The computer 
plays the Individnal 
corps commanders, 
whose leadership 
ratings have been 
preprogrammed 
based on historical 
data. How your orders 
are carried out depends 
entirely on the corps 
commanders, who may fol- 
low them to the letter or 
do so with hesitation 
Misinterpretation and 
even outright disobedience 
of your directives are also 
possible. 

Night, raJn, and terrain 
all affect troop movement 
Intricate rules that deal 
with the effects of fatigue, 
corps morale, and leader- 
ship on battle outcome 
serve to mirror liiatory 
laithfuUy. They also 
complicate your decision 
making and strategy 
planning. 

We know we've painted 
a pretty tough picture of 
this job, and we don't 
expect everyone to apply 
for it We're looking for 
those who can meet the 
challenge and overcome 
the obstacles. For these 
people, we guarantee the 
same feeling of gratifica- 
tion the Emperor himself 
often felt when he added 
up his victory points. 

Two- player and soUtalre 
scenarios are provided for 
both campaigns. 

Our Want Ad has all the 
infonnation yau need to 
land this great job. 
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Sensuous 
Programmer 

continued from page IS 

background in detective work comes 
from watching reruns of Columbo and 
The Rockford Files, so I won't carry 
tliis analogy much further. But it seems 
to me that debugging involves a lot of 
hunches, educated guesses, and dumb 
luck, as well as routine gathering of 
evidence, and that one's debugging 
skills improve greatly with experience. 
Assuming that you encounter some 
kind of problem with a program, what 
should you do? As far as I know, there 
is no comprehensive, foolproof system 
for ferreting out bugs. I offer the 
following suggestions as creative alter- 
natives to the other, more destructive 
options such as angry letters, blind 
panic, and kicking the family dog. 

1. If you are typing in a program 
from a printed listing, assume from the 
very beginning that you'll probably 
end up spending as much time finding 
typographical errors as you spent typ- 
ing it in. Most people who believe that 
they are exceptions to this rule, aren't. 

This suggestion highlights the impor- 
tance of a person's attitude while try- 
ing to get a program to run properly. 
In most cases, published programs do 
work as advertised; and if the program 
you've typed in from the listing crashes 
within a minute or two, there's an 
awfully good chance that the problem 
was introduced by the human interface 
between the listing and the keyboard. 
(And we both know who that is.) Sure, 
there are errors in published listings. 
Sometimes whole lines or sections of a 
listing are accidentally cropped out, 
and occasionally there are horrible er- 
rors in logic or syntax. Once you've 
been burned by such a program, it's 
easy to get paranoid about bugs. But 
having a positive, problem-solving at- 
titude, rather than a negative, critical 
one is the first step in successful debug- 
ging. Think of what you can learn by 
discovering the mistakes that other 
people make, as well as your own! 

2. If the program you're 
troubleshooting has a lot of DATA 
lines, that's a good place to start look- 
ing for trouble. A very common tech- 
nique in programs is the use of FOR- 
NEXT loops to READ a quantity of 
data. The data might then be stored in 
one or more arrays, or perhaps POKEd 
directly into certain memory locations 
to create a Machine Language 
subroutine, shape table, or the like. If 
a single character in one of these 
DATA lines is mistyped, the results can 



be quite dramatically disastrous — or 
extremely subtle and difficult to detect. 
Consider some examples. A missing 
comma, or a look-alike period or 
semicolon substituted for a comma, 
will cause two successive items of data 
to be read as one. If the data consist of 
numbers to be POKEd into memory, 
this will often generate an ILLEGAL 
QUANTITY error in the line which is 
trying to do the POKEing (not in the 
DATA line). This happens because on- 
ly integers from through 255 can be 
POKEd into a single memory location. 
If the numbers 102 and 66 are sup- 
posed to be READ and POKEd, but a 
missing comma causes them to be read 
together as the number 10266, or if a 
period makes them into the number 
102.66, then you're in trouble. A 
semicolon between them would cause 
the computer to see them as a string 
quantity rather than a number, and 
probably cause a TYPE MISMATCH 



If the program 
you're trouble- 
shooting has a lot of 
DATA lines, that's a 
good place to start 
looking for trouble. 



error — this time, in the line which is 
READing the data. 

Of course, even if there is no error 
detected by the computer as the er- 
roneous datum is being read, some 
kind of error will result later. It might 
be an OUT OF DATA message from 
the computer (again, in the READing 
line), as it tries to read past the end of 
the data. Or it might be a system 
lockup or other strange behavior 
resulting from the wrong values having 
been POKEd into memory or assigned 
to variables. 

Other common errors in DATA lines 
include extra commas; confusion be- 
tween characters such as O and 0, I and 
1, B and 8, and S and 5; and items (or 
whole screen lines) which get either 
repeated or omitted. Some such 
mistypings may generate system error 
messages which help to pinpoint the 
problem, but often the errors will go 
undetected until they cause strange 
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behavior later in the program. Some 
mistypings are even invisible in a 
listing: a shifted character may list as a 
normal one, but have a different 
ASCII value; and an inadvertantly 
typed control character will not list at 
all. It's worth it to retype a suspicious 
line (even all the DATA lines) before 
beginning your long walk off that 
short pier. 

Often closely related to problems in 
DATA lines are errors associated with 
statements such as PEEK, POKE, 
CALL, USR, VARPTR, and ADR. As 
mentioned above, POKEing wrong 
values into a Machine Language 
subroutine can wreak all sorts of 
havoc. Likewise, using any of these 
statements with erroneous arguments 
will surely cause weird and wonderful 
(or terrible) things to happen. If the 
keyboard locks up, or you start seeing 
garbage displayed on the screen, or 
your disks start rebooting, or you 
get nonsensical error messages, look 
closely at lines which use these 
keywords. 

3. Be aware that the line in which the 
computer says an error occurred, is not 
necessarily the line that has a problem. 
(In some cases, the specified line might 
not even exist!) Error messages such as 
"BAD SUBSCRIPT", "ILLEGAL 
QUANTITY", "OVERFLOW", and 
"OUT OF MEMORY" often occur in 
lines which have no errors in them. 
What the computer is usually telling 
you is that the value of some variable 
used in that line is not what it should 
be. Which means that you have to 
backtrack through the program to find 
out where that variable was given an 
improper value. 

In such cases, the first task is to 
determine what value in the specified 
line is illegal. For example, consider 
this line: 

1000 POKE X, VAL( MID$ 
( R$(J),N-2, 3)) 

There are all sorts of possibilities here 
for illegal values. X must be within the 
memory range of your computer (ex- 
pressed as either a positive or negative 
number); J must be non-negative, and 
within the DIMensioned size of R$; the 
quantity N-2 must be at least 1 , and no 
greater than the length of R$(J) minus 
2; and the VALue of the three specified 
characters in R$(J) must be a non- 
negative integer less than 256. 

If an error message is generated by 
this line, and it's evident that there are 
no mistyped characters in it, then the 
first step is to find the values of all the 
variables and expressions in it. Since 
the variables all retain their values after 
the error message is generated (unless 
you alter a program line or type a com- 
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mand such as CLEAR or RUN), all 
you need to do is tell the computer to 
PRINT the values you need. Just 
type in 

PRINT X, J, N-2, LEN(R$(J)), 
MID$(R$(J),N-2,3) 

and press RETURN/ENTER, and 
those five values will be displayed on 
the screen. Or at least three of them. 
The fourth or fifth one might provoke 
the same error message that you just 
saw when running the program. 

Once you've determined what value 
or values are illegal, you can then start 
the detective work, tracing the flow of 
the program back to those lines where 
the values of those variables were 
assigned or changed. Of course, if the 
values were computed using other 
variables, then those other variables 
have to be traced back as well. This un- 
tangling continues until you've located 
a line where there is some kind of er- 
ror. Sounds like fun, no? If you can't 
find the bad Hue, it's sometimes 
helpful to put in temporary STOP or 
END or PRINT statements at various 
places in the program, to check on the 
value of some variable at those points. 
Using the TRACE or TRON command 
before RUNning the program can also 
be of great help in following the flow 
of the program prior to the error. 

4. Maybe this is obvious, but I'll 
mention it anyway. When your com- 
puter is gracious enough to give you an 
error message, look up that message in 
your reference manuals and read about 
the various things that can provoke it. 
You may be surprised to find out how 
ambiguous some system error mes- 
sages are. 

Apple's "OUT OF MEMORY" 
message, for example, can be 
generated by any of several conditions. 
The most obvious one is that there's 
not enough free memory for the pro- 
gram or for the variables. But the most 
obvious is not necessarily the most 
common. Other causes include im- 
proper use of FOR-NEXT loops, 
GOSUBs, and parentheses. Any of 
these, if "nested" more than a given 
number of levels deep, will exhaust the 
limited memory assigned to keeping 
track of such things (the system 
"stacks"). So this error message could 
be generated, for example, by a 
mistyped variable name in a FOR or 
NEXT statement, or by the wrong 
number of parentheses in a math- 
ematical expression. Read the 
manuals to make sure you're covering 
all the possibilities. 

5. The confusion that can exist 
among characters which look very 
much alike has already been men- 
tioned. It's worth reiterating, 
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specifically with regard to variable 
names. If you're trying to find one 
mistyped character in ten or twenty 
thousand, it's really easy to miss an El 
that's supposed to be EI, or a B8 that's 
supposed to be a BE. Such miniscule 
differences can cause aggravations 
unlimited. 

6. Making minor modifications to a 
listed program is a common thing to 
do: Combining short lines, reformat- 
ting PRINT statements, renumbering 
lines, adding REMarks as you go 
along. Usually such things have no ill 
effects, if you know more or less what 
you're doing. But even a modification 
as simple as adding a REM can cause a 
program to crash. This can happen if 
the programmer has written the pro- 
gram to occupy only a certain portion 
of the computer's memory, and swell- 



But even a 
modification as 
simple as adding a 
REM can cause a 
program to crash. 



ing it by just a few bytes could invade 
another part of memory reserved for 
another use. If the program POKEs in 
a Machine Language routine, or uses a 
graphics screen, which overwrites part 
of the program itself, obviously 
something is going to blow up sooner 
or later. This phenomenon is usually 
detectable by LISTing the program and 
finding part of it missing or filled with 
garbage at the end. The solution, at 
least, is relatively simple: Type it in the 
way it was listed in the first place! 

7. Some errors are really incom- 
prehensible. Of course, all errors prob- 
ably seem incomprehensible to the 
uninitiated; but some just plain don't 
make sense. A specific example will il- 
lustrate the point. 

The October issue of SoftSide con- 
tains the program Leyte. When I load 
this program into my Apple from the 
SoftSide 



SoftSide disk, it runs fine. But when I 
SAVE it to tape, turn the computer off 
and back on, and LOAD it back in 
from tape without DOS in memory, it 
crashes the first time I press a key. The 
error message says "ILLEGAL 
QUANTITY ERROR IN 260". Line 
260, and the two preceding lines, are as 
follows: 

250 GET 1$: IF ASC(I$) < 49 OR 

ASC(I$) > 52 THEN 270 

255 FOR X = 1 TO 1: NEXT X 

260 G = VAL(I$): ON G GOTO 

280,480,620,730 

The variable 1$ contains the character 
corresponding to the key I have just 
pressed — in this case, the digit 1 . The 
variable G, then, should have a cor- 
responding value. When I type 
"PRINT 1$, VAL(I$), G" the com- 
puter displays the following values on 
the screen: 



1 



1 



l.llllllllE-l-16 



Picking myself up off the floor, I ask 
myself why G should be equal to 
something over eleven quadriUion, 
when it has just been set equal to a 
quantity whose value is one. After 
retyping the lines several times, 
reloading the program from tape and 
disk several more times, and repeating 
the whole procedure on a different Ap- 
ple with the same result, I conclude 
that I am actually in the Twilight Zone 
and everything will be different when 
the full moon sets in a few hours. 

The next day, I did manage to get the 
thing to run by first setting HIMEM to 
some arbitrary value a few bytes below 
the top of memory. Why? Who 
knows? Finally, my sanity was rescued 
by a Httle blurb in the Beagle Bros. 
Micro Software DOS Boss manual, 
mentioning this "GET bug" in Ap- 
plesoft. Although they didn't provide 
an explanation of the bug ("The ex- 
planation for this is really boring"), 
they did provide a fix. If you insert the 
statement "I$ = I$" after the GET, 
before using the VAL function, then 
all is well. Would anyone out there like 
to provide the reason for this one?? 

The moral is this: Yes, there really 
are system bugs that can cause some 
very strange errors from time to time. 
(There ought to be an UN- 
FATHOMABLE ERROR IN LINE 
NNN message to point these out, don't 
you think?) 

Well, if this column hasn't made you 
into a confirmed entomophobe, 
nothing will. Next month, I'll be 
celebrating the tenth installment of The 
Sensuous Programmer. Maybe I'll take 
the day off instead of writing it. . . © 



by Allen L. Wold and Fred D'Ignazio 

BOARD GAMES UNLIMITED 

As computer games continue to im- 
prove and develop, will there be any 
place in the future for traditional 
board games? We think there will 
be, though with microcomputers em- 
bedded in them, they'll be quite dif- 
ferent from what they are today. Let's 
examine one possibility, incorporating 
four different ideas. 

Our hypothetical game is similar to 
many present-day games, such as 
Squad Leader. It is a war game, in 
which each player controls units 
representing squads, single trucks or 
tanks, and special wagons. Each player 
attempts to control parts of a town or 
countryside as represented by the game 
board. But in other ways our game is 
quite different. 

For example, when the board is un- 
folded there is only a simple white sur- 
face without markings of any kind. It 
is a giant Liquid Crystal Display 
(LCD), no thicker than a traditional 
war game board. 

At the side of the board are two units 
like pocket calculators, with LCD 
readouts and a full set of flat, touch- 
sensitive keys, which can either enter 
letters or numbers, or designate or per- 
form special functions — not sine or 
square root, but "Attack," "Move," 
"Range," "Radar," "Overrun," 
"Rally," and so on. 

The third item is like a long, thin 
pair of dividers, connected by a wire to 
the board and keyboards. One leg is 
red, the other is black, and at the joint 
between the two legs is an analog 
device which knows the angle to which 
the legs are separated. 

The pieces which come with the 
game are blank on one side, and on the 
other are marked like traditional card- 
board war game unit counters, but 
without any numbers. 

Even if all you've ever played is 
Monopoly, then you know about 
counting spaces, rolling dice, keeping 
score, and so on. Our hypothetical 
game turns all that bookkeeping over 
to a microcomputer embedded in the 
game, and leaves you with only the 
playing to worry about. 

Our game can plug into the wall or 
run on a battery. You turn on a switch 



at the side and the once white board 
becomes a full-color representation of 
the playing surface, with buildings, 
roads, forests, rivers — almost like an 
aerial photograph, except the artwork 
makes identification of each object 
easier, and there are contour lines 
representing elevations. What's more, 
the picture-map displayed is different 
for each variation of the game you 
want to play. 

Next, you and your opponent set out 
your pieces, plain side up. Neither of 
you knows what the other's pieces 
represent, whether tank, squad, leader, 
machine gun, or dummy. When all the 
pieces are placed, the board displays a 
dot by any piece which is in sight of 
your opponent's pieces, and those you 
flip face up. 

First turn. You move first. But there 
are no hexes printed on the board, no 
squares, so how do you know how far 
to move? 

You simply slide each piece across 
the board, along its intended path. 
Your side-display tells you when each 
piece has gone as far as it can go, 
depending on type, terrain, and current 
condition. The side-display also tells 
you whether an opposing piece has 
spotted you as you moved, giving it a 
chance to fire at you. 

After you have moved all the pieces 
you want and are able to, those which 
are capable may fire on enemy targets. 
Your anti-tank gun on a hill would like 
to take out that armored vehicle down 
in the valley, but is it in sight? 
In range? 

You take those long-legged dividers 
now, and place the black leg on the 
piece representing your anti-tank gun, 
and the red leg on the unit counter 
representing the enemy armored 
vehicle. Then you touch the "Attack" 
key on your keyboard, and the side- 
display tells you the results. No 
measuring, no dice rolling, no looking 
up tables and forgetting which weapon 
is modified how by which target under 
which circumstances. The computer 
knows all and does it for you. 

The board displays a red ring around 

all units which were destroyed. The 

pieces are removed from play after all 

attacks are resolved, and the rings 
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disappear. Units which were merely 
damaged are similarly marked by an 
orange ring, and demoralized units by 
a yellow ring. The board displays these 
rings wherever the pieces might be, and 
will continue to display them until their 
condition changes. 

After you finish your attack you 
may attempt to repair or rally any units 
which were damaged or demoralized 
on the last turn. You touch each unit 
with both legs of the divider together, 
and touch the appropriate key on your 
keyboard. If the attempt works, the 
rings disappear or change color. If not, 
they remain the same. 

During your opponent's turn he or 
she slides a piece representing a tank 
across the board. It goes through 
woods, crosses a short clear stretch, 
then goes into the shelter of a building. 

But while it was in the clear, one of 
your units had it in sight and you have 
the option to fire. You use the dividers 
as you did when it was your turn, but 
the computer embedded in the game 
calculates not only the type of attack, 
the type of target, the armor if any, 
and the range and elevation modifiers, 
but also the amount of time the target 
unit was in sight, and adjusts your 
chance to hit accordingly. 

If your opponent tries to move a 
piece that has already moved, the com- 
puter won't allow it. If you try to fire 
out of range, the computer scores no 
hit. If you can't see the unit, you can 
try radar, using the dividers again. 

You refer to no tables. You count no 
hexes or inches. You roll no dice. You 
simply command your troops to move 
and fire, attack and defend, and hope 
that you understand your opponent's 
strategy well enough to be the victor. 
All the mechanics of the game have 
been taken care of by the computer. 
All you have to do is play. 

In most war games the element 
which slows play the most is the 
necessity of referring frequently to 
tables which tell the players the out- 
comes of certain actions, according to 
the throw of dice. There is a constant 
struggle in game design to try to satisfy 
two conflicting criteria: The tables 
must be easy to read and apply, yet 

January 1982 19 



must also incorporate a number of fac- 
tors bearing on the results of a player's 
decisions, and therefore be complex. 
It's the old playability vs. realism con- 
flict — if you achieve one, you lose the 
other for the most part. 

In our example, all tables are incor- 
porated in the game's computer, as is a 
sophisticated random number gen- 
erator which replaces the ubiquitous 
pair of dice. 

One of the benefits is that the com- 
puter can handle complex tables which 
take into consideration more factors 
than a person can normally keep track 
of. There is more to combat than sim- 
ply a machine gun firing at a truck at 
six hexes. Is the truck moving and how 
fast? What are the elevation dif- 
ferences? Are there bushes or buildings 
screening it? What type of ammunition 
is the machine gun using? Is your 
squad under fire from somewhere else 
and therefore distracted, or has it 
sighted in on that section of road and 
therefore is more accurate? What is the 
morale of the troops on both sides? 
How good is the commanding officer? 
How experienced are the troops? Are 
they fresh or tired? Have they taken 
damage earlier in the game? Is this a 
holding action or a do-or-die situation? 

It is impossible to include all those 
factors in a single printed table, to be 
cross-indexed with a single die roll. In- 
stead several tables must be consulted, 
each with a choice of one of several 
columns as determined by other factors 
Usted in other tables. Then the die roll 
is modified according to still other 
tables. Certain conditions on the board 
have to be supplied from memory, and 
so on. Mistakes are easy and not un- 
common. Misinterpretations are 
easier. So, for the sake of simplicity, 
and ease of play, many of the above 
factors are simply left out, and a less 
realistic conclusion is reached. 

Despite the use of polyhedral dice in 
role-playing games, most board games 
and war games still use the old six- 
siders. But in real life the chance of 
something happening is not always a 
nice neat 1/6, or 1/36, or whatever the 
percent chance is if two dice are rolled 
and added. 

But if you use an electronic dice- 
rolling generator, you can have 
17-sided dice, if you wish. The chances 
of various outcomes can be given 
realistic weights, and the true chances 
rolled for. There is no need to round 
up or down to the next whole number, 
as every present-day board game re- 
quires. If the odds are 27 to 13, that's 
what they are, not 2 to 1 or 3 to 1. 

The computer will also keep track of 
"victory points," your score in the 
game — both those which are awarded 
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permanently, i.e., for destroying an 
enemy tank; and those which are 
awarded conditionally, i.e., for 
holding a hill, which may change in the 
course of the game. When you've 
finished your last turn (the computer 
keeps track of that too) then the score 
is displayed. 

In many games, additional units 
come on at various times. The com- 
puter will remind you of this. It 
reminds you of night-turns, and other 
times when different conditions apply. 
It reminds you that some demoralized 
troops are now recovered, that you 
need to reset your long-range artillery, 
and that attempts at repair can now 
be made. 

The board uses two very different 
technologies. The first is that instead 
of cardboard or plastic sheets with a 
printed picture on the surface, we have 
a flat LCD board. The map is 
computer-generated color graphics, 
which can represent a wide range of 
terrains and conditions. When a tank is 
wrecked, the board displays a wreck. 
When a bridge is built, the board 
displays a bridge. When an obstacle is 
removed, the board shows clear 
ground. The condition of the 
player's forces and the terrain the 
board represents, is displayed by the 
computer without any effort on the 
player's part, and is always up-to-date. 

Status tables are displayed along the 
side, indicating the player's score, or 
other information not necessarily kept 
secret. These are also always up-to- 
date. And if you change scenarios, that 
mountain in the middle is simply 
eliminated. Where there was no city 
before, a new one springs up. 

There is an advantage to a horizontal 
board over a vertical CRT screen. The 
CRT screen is small, and everybody 
sits in front. The LCD board can be 
quite large, and players sit on various 
sides. Also, the aesthetics of a large 
full-color board cannot be denied, and 
playing pieces tend to fall off a ver- 
tical surface. 

The second characteristic of the 
board is that it is also a sensing device. 
Each of the unit counters has em- 
bedded in it a kind of magnetic 
signature. The computerized board 
senses the magnetic patterns, and 
knows what the piece represents. 
Because the map on the board is 
created by a program, the computer 
knows where each piece is, and can 
relate it to other pieces on the board, as 
well as to the terrain the board is 
displaying at the moment. 

If you indicate an attack on a piece 
that is behind a building, the computer 
tells you can't see it. If you have an 
elevation advantage, the computer 
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knows it. All the information on the 
board is contained in a set of arrays 
within the computer's memory, and 
while you still should know what your 
unit counters can see and what they 
can't, the computer takes everything 
into consideration without you having 
to type it in. 

The computer can also tell whether a 
piece is at full strength, demoralized, 
half-strength, and so on. It remembers 
which pieces have fired, which have 
moved, and which have not. You 
might still misjudge range and 
firepower or accessibility of target, but 
those problems, after all, have not yet 
been solved in real war. 

The long-legged dividers are perhaps 
the most unusual piece of equipment, 
based on the rulers used in miniatures 
war gaming. But instead of a typical 
ruler marked off in inches, cen- 
timeters, or any other scale, the analog 
device where the two legs join measures 
the angle to which the legs Eire opened, 
and therefore the distance between the 
two ends. The legs are colored distinc- 
tively — black and red in our example. 

Each leg has a sensor which can read 
the identity of a piece, or a location on 
the board. The black leg is keyed to the 
pieces or locations of the player whose 
turn it is to move, the red to the oppo- 
nent's. Thus, when one leg is placed on 
one piece and the other leg on another, 
the computer knows which two pieces 
or locations are referred to, and which 
belongs to which side. No need to type 
anything in. 

This permits several interesting 
possibilities — radar for instance. 
Place the black leg on your radar unit 
and swing the red leg in an arc. The 
computer knows what terrain is within 
the arc of the radar unit, and can spot 
"targets" for you, though not 
necessarily telling you what they are. 

The dividers would also be used to 
rally demoralized troops, or give status 
on ammunition, casualties, and so on, 
by placing both legs on the piece in 
question and touching the appropriate 
function key. All information is 
displayed on that player's side-display, 
where the opponent cannot see it. Here 
is where the computer itself is con- 
tained in a few dedicated microchips. 

Modern board games, as well- 
designed as they might be, still take a 
lot of work to play. With tables, 
movement-counting, written moves, 
and record keeping in some cases, 
more time is spent on the mechanics of 
the game than on making decisions 
which determine the outcome of the 
game. But it won't be that way forever. 
Our hypothetical game is not that far 
in the future. © 



by Jon Voskuil 

Program Documentation Textwriter, 
Part 2: Printout Module 

Microtext 1.1 is a word processor 
program for a 16K Apple (with Ap- 
plesoft), ATARI® , or TRS-80® (Model 
I or III). 

Last month we began the develop- 
ment of a simple BASIC word proc- 
essor program. That first (and main) 
installment included the code needed to 
enter text (with lines automatically 
broken between words), save and recall 
text using tape or disk, review the 
entered text on the screen, and delete 
unwanted lines to the end of the file. 

As outHned last month, SoftSide 
now requires that all program docu- 
mentation be submitted on tape or disk 
in machine-readable and -storable 
form. The version of Microtext 
published in that issue has all the 
capabilities which are absolutely 
necessary to serve that purpose. But 
there are many features that can be 
added, to make the program much 
more useful as a general-purpose word 
processor. The most urgently needed 
of these is obviously a printout routine, 
to enable you to format and print the 
text on a printer. 

The following printout module 
allows you to do this. The printout op- 
tion is selected in the same manner as 
the other ones are, in this case using a 
CTRL-P or CLEAR-P. The para- 
meters you can specify for the 
printout are the left and right margins 
and the line spacing. The routine 
assumes that your pages are 66 lines 
long, and prints six blank lines at the 
end of a page. This means that you 
should position the paper down about 
two lines from the top of the page 
before starting to print. It would be a 
simple matter to add provisions to 
specify the top and bottom margins, 
but for the sake of simplicity we've 
omitted that seldom-used option. 
(Lines 7070 and 7615 would need to be 
changed, and another INPUT line or 
two added in the 7010-7050 range.) 

An additional feature for the Apple 
and TRS-80® versions is a routine to 
convert all-upper-case text to mixed 
upper and lower case for printout. This 
is not needed for the ATARI® version, 
since lower-case text can be entered 




directly; nor is it needed for a TRS- 
80® Model III, for the same reason. If 
you have a Model III, you can make 
the following changes in the listed pro- 
gram: 

line 50: omit ':GOTO 100' 

Hues 59-74: delete 

Hne 7050: delete 

line 7130: change to 'LPRINT 

TAB(LM);P$;' 

Hne 7140: delete 

line 7590: change to 'LPRINT 

TAB(LM);PP$;' 

line 7600: delete 

Using the lower-case conversion op- 
tion, all text will be printed in lower- 
case characters unless flagged by an 
'@' symbol. Whenever the routine en- 
counters an '@' in the text, it will 
capitalize the following character; 
when it encounters a double '@@', it 
will capitaHze the following word. The 
shift key is used in the normal way on 
the TRS-80® Model I to indicate capital 
letters; you'll notice that when you use 
it, the letter you type will automatically 
be displayed on the screen with an '@' 
preceding it. 

On the Apple, the shift key does not 
function in this way; instead, the ESC 
key is used for capitalization (a con- 
vention used by many Apple word 
processors). Pressing ESC will display 
an '@' on the screen, indicating that 
the next letter typed will be capitalized; 
pressing it twice will capitalize the 
whole word. The '@' key itself may 
also be used, but that's a lot more 
trouble since it requires pressing two 
keys (shift-P). You'll be surprised at 
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how quickly you'll get used to using the 
ESC key in this way. 

A weakness of the lower-case con- 
version routine is its speed. Since it 
must check for '@' symbols within 
each line of text, and add 32 to the 
ASCII value of each unflagged 
character to convert it to lower case, it 
does take a moment to convert each 
line. (On the other hand, it's still a lot 
faster than typing!) Suggestions from 
readers on improving the BASIC 
routine, or substituting a Machine 
Language subroutine to do the job, are 
welcome. 

The next module for Microtext will 
add a line editing feature which will 
allow you to delete and change text 
much more easily than is now possible. 
The editing module is under develop- 
ment, and will be published in these 
pages in the near future. 

Additional Variables 

CC: ASCII of a character. 

E: Error code. 

LC: Lower-case flag. 

LIN: Number of the current line on 

the page. 

LL: Line length. 

LM: Left margin. 

LOK, LOCK: Shift-lock flag. 

LP: Length of P$. 

LS: Line spacing. 

NO, Nl, N32, N64, N91: Used in 

place of constants for increased 

speed. 

P$, PP$: Text to be printed. 

RM: Right margin. 

UC: Upper-case flag. 
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Routine to print the text file in memory 


7170 RETURN 


$ APPLESOFT BASIC t 


to a printer. 




$ 'HICROTEXT l.r » 




Subroutine to print a string of text to 


$ AUTHOR; JON VQSKUIL * 


6999 REM PRINTOUT ROUTINE 


tlie printer, breaidng each line at tfie end 


$ IC) 1982 SOFTS IDE $ 


7000 HOME : VTAB 6: LIN = 


of a word. 


$$$tu$uHtt$$mtm$$*itt$$ 




7500 L = LL 


The following are lines to lie changed or 


Set up printing parameters. 


7510 IF LEN (Pt) > LL THEN 7550 


added to MIcrotext 1.0: 




7520 IF NOT CR THEN 7640 




7010 INPUT "LEFT MARGIN? (DEFAUL 


7530 LP = LEN (Pt): IF LP < 2 THEN 


3 REH « HICROTEXT 1.1 » 


T = 10) "!X«:LM = VAL (Xt): 


PPt = "":Pt = "°: SOTQ 7590 


20 VTAB 8: PRINT TAB( 8)"I1 I C 


IF LM < 1 THEN LM = 10 


7540 PPt = LEFTt (Pt,LP - l):Pt = 


/? T E Jf T 1.1" 


7020 PRINT : INPUT "RIGHT MARGIN 


"": GOTO 7590 


50 FOR Z = 1 TO 3000: NEXT Z: GOTO 


? (DEFAULT = 70) 'iXt:RM = VAL 


7550 Ct = MIDt (Pt,L,l): IF Ct = 


100 


(Xt): IF RM < 1 THEN RH = 70 


" " THEN 7580 
7560 L = L - 1: IF L > THEN 755 




7030 PRINT ; INPUT "LINE SPACING 







? (DEFAULT = 2) ";Xt:LS = VAL 


7570 L = LL 


Subroutine to print a line of upper-case 
text in lower case (unless preceded by 


(Xt): IF LS < 1 THEN LS = 2 


7580 PPt = LEFTt (Pt,L):Pt = RIGHTt 


'@' to capitalize one letter or '@ @' to 


7040 LL = RM - LM 


(Pt, LEN (Pt) - L) 


capitalize whole word). 


7050 PRINT : PRINT "CONVERT TO L 


7590 PRINT TAB( LM);: IF UC THEN 




OWERCASE UNLESS PRECEDED 


PRINT PPt;: GOTO 7610 




BY 8? (DEFAULT = NO) ";: GET 


7600 GOSUB 60 


59 REM LOWERCASE PRINT RTN 


Xt:UC = 1: IF Xt = "Y" THEN 


7610 FOR J = 1 TO LS:LIH = LIN + 


iO X« = ""! IF PPt = •" THEN 74 


UC = 


1: PRINT " ": NEXT J 


i2 LOCK = NO:LC = Nl! FOR K = Nl TO 




7615 IF LIN > 59 THEN FOR J = 1 


LEN (PPt):CC = ASC ( MIDI 


Build a long string from stored lines 


TO 66 - LIN: PRINT : NEXT J 


iPP*,K,Nl))! IF CC = N32 THEN 


of text until a carriage return is 


sLIN = 


LOCK = NO 


encountered or until the maximum 


7620 IF LEN (Pt) > LL THEN L = 


64 IF CC < > N(b4 THEN 70 


string length Is approached. 


LL: GOTO 7550 


A6 IF LC = NO THEN LOCK = Ml 




7630 IF CR AND LEN (Pt) > THEN 


iB LC = NO: GOTO 72 




7530 


70 PRINT CHR« (CC + N32 t (LC AND 


7060 PR« 1 


7640 RETURN 


CC > N64 AND CC < N91) t ( NOT 


7070 HOME : PRINT :Pt = »":CR = 




LOCK));:LC = Nl 


0:1 = 


Subroutine to process errors without 


72 NEXT 


7080 1 = 1 + l:Pt = Pt + Ltd) 


bombing the program. 


74 RETURN 


7090 IF RIGHTt (Pt,l) = CRt THEN 






CR = 1: GOTO 7110 


19999 REM ERROR-HANDLING RTN 




7100 IF LEN (Pt) < 255 - LNID AND 


20000 E = PEEK (222): PRINT CHRt 


A few miscellaneous changes. 


I < LN THEN 7080 


(7) 
20010 IF E = OR E > 15 THEN PRINT 


100 HOHE : ONERR GOTO 20000 




"ERROR l";E;" IN LINE "; PEEK 


140 CHAR = 1:N0 = 0:N1 = 1:N32 = 


Go print some lines. 


(218) + PEEK (219) » 256: STOP 


32:N64 = 64:N91 = 91 






170 PRINT D*i"«ON C,I,0": HOME 


7110 GOSUB 7500: CR = 


20020 PRINT Dt; "CLOSE" 


210 VTAB 24: HTAB 1: INVERSE : PRINT 


7120 IF I < LN THEN 7080 


20030 PRINT "DISK ERR: "; 


" SAVE:''S REVIEHr'-R LOAD:" 




20040 IF E = 4 THEN PRINT "NRIT 


L PRINT: -^P ■;: NORMAL 


Print the last line. 


E-PRDTECTED"; 


2400 IF C = 17 THEN TEXT : END 




20050 IF E = 5 THEN PRINT "END 


: REM CTRL-Q 


7130 PRINT TAB( LM);: IF UC THEN 


OF DATA"; 




PRINT Pt;: GOTO 7150 


20060 IF E = 9 THEN PRINT "DISK 




7140 PPt = Pt: GOSUB 60 


FULL"; 


New line to process a ctrl-P for 






hardcopy printout. 


7150 PRINT : PRI 


20070 IF E = 10 THEN PRINT "FIL 
E LOCKED"; 




Re-display the text on the screen. 


20080 PRINT "; PRESS A KEY";: GET 


2500 IF C = 16 THEN GOSUB 7000: 




Xt 


REM CTRL-P 


7160 GOSUB 3000 


20090 GOTO 210 
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$$$$n$$n$$$$$$$$$$$$$$$$$$n 


LP(I)) 


$ ATARI BASIC $ 


7090 IF P«(LEN(P$))=CR« THEN CR=1:60TQ 


i 'MICROTEXT l.r $ 


7110 


$ AUTHOR: JON VQSKUIL $ 


7100 IF LEN(P*)<255-LHID AND KLN-1 TH 


$ (C) 1982 SOFTSIDE % 


EN 7080 


$t$$$$t$$$$$$$$$«$$$$$$$lt$t$ 






Go print some lines. 


Lines to be changed or added to 
Mlcrotext 1.0. 


7110 GOSUB 7500: CR=0 




7120 IF KLN-1 THEN 7080 


3 REH X HICROTEH 1,1 1 




20 POSITION 8,8:PRINT "H I C R T E X 
T 1.1" 
100 PRINT CL$:TRAP 20000 


Print the last line. 




125 DIM P»(255),PP»(S0) 


7130 LPRINT S«(l,Ln)jL*; 


200 POSITION 2,0:PRINT "SAVEr'S REVW: 


7150 LPRINT " 


^R LOAD:''L PRINT:"?'; 




2400 IF C=17 THEN END :REN CTL-Q 


Re-dlspiay the text on the screen. 


New line to process a ctrl-P for 
hardcopy printout. 


7160 GOSUB 3000 




7170 RETURN 


2500 IF C=16 THEN 60SUB 7000: REH CTL-P 






Subroutine to print a string of text to 




tfie printer, breaking each line at tfie end 


Routine to print the text file In memory 


of a word. 


to a printer. 






7500 L=LL 


6999 REN PRINTOUT RTN 


7510 IF LEN(P»)>LL THEN 7550 


7000 PRINT CL«:POSITION 2,6:LIN=0 


7520 IF ( NOT CR) THEN 7640 




7530 LP=LEN(P»):IF LP<2 THEN PP«='":P$ 


Set up printing parameters. 


="":60T0 7590 




7540 PP«=P*(1,LP-1):P»="':G0T0 7590 




7550 «=P*(L,L):IF C$=" ' THEN 7580 


7010 ? "Len largin? (Default = 10) '; 


7560 L=L-1:IF DO THEN 7550 


:INPUT )(«;LI1=10:IF LEN(1(*)>0 THEN IF V 


7570 L=LL 


" m)>0 THEN LH=VAL()«):IF LW>37 THEN 


7580 PP«=P$(1,L)!P$=P»(L+1) 


LN=37 


7590 LPRINT S$(l,L«);PP*i 


7020 PRINT :PRINT "Right iargin? (Defa 


7610 FOR M TO LS:LIN=LIN+1:LPRINT "" 


ult = 70) ";: INPUT X*:RH=70:IF LEN(Xi) 


:NEXT J 


>0 THEN IF VAL(X*)>0 THEN RH=VAL(X») 


7615 IF LIN>59 THEN FOR J=l TO 66-LIN: 


7030 PRINT :PRINT 'Line spacing? (Defa 


LPRINT •':NEXT J:LIN=0 


ult = 2) ";: INPUT X$:LS=2:IF LEN(X$)>0 


7620 IF LEN(P»)>LL THEN L=LL:GOTO 7550 


THEN IF VAL(X$)>0 THEN LS=VAL(X$) 


7630 IF CR AND LEN(P$)>0 THEN 7530 


7040 LL=RN-LH 


7640 RETURN 




Subroutine to process errors without 


Build a string from stored lines of text 


bombing the program. 


until a caulage retum Is encountered or 




maximum dimensioned string length is 
approached. 


19999 REH ERROR-HANDLING RTN 


20000 CLOSE #2:E=PEEK(195) 




20010 POSITION 2,0:PRINT S$;:POSITION 




2,0:PRINT "Error: Code ";E;"; press an 


7070 PRINT CL«:LPRINT "■:P$="":GR=0:I= 


y lfey"i 





20020 GET 11. X 


70B0 1=1+1;P»<LEH<P»)+1)=T$(LP(I-1)+1, 


20030 TRAP 20000 




20040 GOTO 200 



Protect 

Your 

Investment! 




With 

3oft5iae 

Vinyl Binders 



Protect your SoftSide back 
issues (combined editions) 
witfi these sturdy binders. 
Covered with durable wood- 
grain vinyl, each 8V2 x 11 inch 
binder has an inside pocket 
and clear sleeve on the spine 
which you can label for easy 
identification. Each binder 
holds 12 issues. 

8V2XII $7.95 




ItSiaeJ 



6 3outh 3tr9«t Milford HH 030S$ 



SoftSide 



January 1982 23 



$$$$$$$$$$t$$$$$$$$$$$$$$nt$» 


7100 IF LEN(P*)<255-LHID AND KLN THEN 7080 


i TR5-80 LEVEL II/DISK BftSIC i 




* 'MICROTEXT l.r » 


Go print some lines. 


t AUTHOR! JON V03KUIL t 




$ (Ci 1982 SOFTSIBE % 


7110 GOSUB 7500: CR=0 


$$$il$»$$$$$$$$$$$$$»$$$$$$$$$ 


7120 IF KLN THEN 7080 


The following are lines to be changed or added to Microtext 1.0: 






Print the last line. 


3 ' I HICROTEH 1.1 I 




20 PRINT 8198, "MICROTEXT 1.1" 


7130 LPRINT TAB(LH);: IF UC THEN LPRINT P»;: GOTO 7150 


50 FOR Z=l TO 1000: NEXT Z: GOTO 100 


7140 PP«=Pt: GOSUB 60 




7150 LPRINT" 


Subroutine to print a line of upper-case text in lower case 
unless preceded by '@' to capitalize one letter or '@ @' to 
capitalize whole word. 


Re-display the text on the screen. 




7160 GOSUB 3000 


59 ' LOHERCASE PRINT RTN 


7170 RETURN 


iO n="i IF PP»="" THEN 74 




42 LOI(=0! LC=-1: FOR IfM TO LEN(PPI): CC=ASC(I1ID»(PP»,K,1))! IF 
CC=J2 THEN LOK=0 


Subroutine to print a string of text to the printer, breaking 
each line at the end of a word. 


64 IF CC<>i4 THEN 70 




6i IF LC=0 THEN L0K=-1 


7500 L=LL 


48 LC=0! GOTO 72 


7510 IF LEN(P»)>LL THEN 7550 


70 LPRINT CHRt(CC-32> (LC AND CC>64 AND CC<91) t -(NOT LOK));iLC 


7520 IF NOT CR THEN 7640 


=-1 


7530 LP=LEN(P$): IF LP<2 THEN PP«=": P»=": GOTO 7590 


72 NEXT 


7540 PP«=LEFT«(P$,LP-1): P$=°"; GOTO 7590 


74 RETURN 


7550 C$=«ID«(P$,L,1): IF C$=" " THEN 7580 




7560 L=L-1: IF DO THEN 7550 


A few miscellaneous changes. 


7570 L=LL 




7580 PP«=LEFT»{F»,L): P$=RIGHTt{P«,LEN(F$)-L) 


125 ON ERROR GOTO 20000 


7590 LPRINT TAB(LII);: IF UC THEN LPRINT PP»;: GOTO 7610 


200 PRINT 30, " SAVE: CLR-S REVIEU: CLR-R LOAD: CLR-L 


7600 GOSUB 60 


PRINT: CLR-P" 


7610 FOR J=l TO LS: LIN=LIN+1: LPRINT"": NEXT J 


2400 IF C=81 THEN END: 'QUIT 


7415 IF LIN>59 THEN FOR J=l TO 66-LIN: LPRINT": NEXT i: LIN=0 




7420 IF LEN(P$)>LL THEN L=LL: GOTO 7550 


New line to process a clear-P for hardcopy printout. 


7630 IF CR AND LEN(Pt)>0 THEN 7530 




7640 RETURN 


2500 IF C=80 THEN SOSUB 7000: GOTO 200: 'PRINT 






Subroutine to process enors without bombing the program. 


Routine to print the text file in memory to a printer. 






19999 ' ERROR-HANDLING RTN 


6999 ' PRINTOUT RTN 


20000 PRINT80, STRING* (63, 32) i 


7000 CLS: LIN=0 


20010 E=ERR/2+l: PRINTJO, "ERROR: CODE"iE! 




20050 PRINT'i PRESS ANY KEY"; 


Set up printing parameters. 


20040 IF INKEV$=" THEN 20060 




20070 P=P-1: RESUME 200 © 


7010 n^'lO'i INPUT-LEFT HARGIN IDEFAULT = 10) ";X»: LH=VAL(X«) 
7020 PRINT: X$="70': INPUT'RIGHT HARGIN (DEFAULT = 70) "jXt: RN= 
VAL(X») 




TRS-80' One Liners 


7030 PRINT: X»="2": INPUT'LINE SPACING (DEFAULT = 2) "jX*: LS=VA 




L(X«) 


i Ci.3 = A=:RfiEi63;-12S;F0RX-OTOiO23STEPRNGi43!iPRINT3)(,CHRt(H);:flUT 


7040 LL=RN-LH 


255,4[nL!T255,B;f!Ei(TX:FaRB=lTQ20CiNEXT0:RUN 


7050 PRINT: X$='N': INPUT'CONVERT TO LOWERCASE, UNLESS PRECEDED 




BY 9 (DEFAULT = NO) "iX*: UC=-1; IF LEFT»(X«,1)="Y" THEN UC=0 


Pat HaU 




Holland, MI 


Build a long string from stored lines of text until a carnage 
retum is encountered or until the maximum string length is 


1 CLS;PRINT"A»t[2+B«+C=Y";INPUT"A='iA;INPUT"S="iE;iNPUT"C-"iCiC 


approached. 


LS;FQRX=-32T03iSTEP.5!Y=AK[2+BlX+C:IFV<-24QRY>23THENNEXTX:F0RI= 




ITn2STEP0:IFlNKEY$O"°THENRUNELSENEXTI;ELSESET!Xt2+64,23-y);NEXT 


7070 CLS: LPRINT": PJ="": CR=0: 1=0 


?iF0RI=lT02STEP0:IFINKEYJ<>""THENRUNELSENEXTI 


7080 I=U1: P$=P»+L»(I) 

7090 IF RISHT$(P$,1)=CR$ THEN CR=-1: GOTO 7110 


Paul Harper 
Rimersburg, PA 
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REFLECTIVE SYMMETRY 
PATTERN SYSTEMS: 
VERTICAL REFLECTION 



by Joan R. Truckenbrod 

We are familiar with figures and ob- 
jects that have been designed by using 
reflective symmetry, such as the front 
of a car or the front of most clothing. 
In these instances we can draw an in- 
visible line down the center of the ob- 
ject and we find that both halves of the 
objects are exactly the same except that 
one side is the reverse or mirror image 
of the other side. Hold both of your 
hands out in front of you, palms up or 
down, and you see that one hand is the 
mirror image of the other. Your hands 
represent reflective symmetry. Hold 
one of your hands perpendicular to a 
mirror and you will see the same pair 
of hands. In these examples the axis of 
reflection is a vertical line and the 
figure is repeated sideways (in a 
horizontal direction). A graphics pro- 
gram that creates patterns based on 
horizontal reflections is described in 
the August, 1981, issue of SoftSide. 

In reflective symmetry figures can 
also be reflected, or mirrored, up or 
down (in a vertical direction). Using a 
horizontal axis of reflection, we can 
create an image in which the top half is 
the same as the bottom half with the 
bottom portion being a reflection of 
the top portion. In other words, the 
mirror is held in a horizontal position 
relative to the figure, and the figure is 
reflected up or down. A good example 
of vertical reflection is the reflection of 
buildings or people in a pond or lake in 
which the buildings appear upside 
down in the water. The letter F 
repeated in Figure 1 illustrates the 
reflection of a figure up and down. 

Patterns can be created by repeating 
both of these reflective symmetry pairs 
individually or in combination. Two 
possible methods for creating patterns 
based on reflective symmetry are il- 
lustrated. The first pattern, shown in 
Figure 2, repeats the figure in its 
original orientation across the top row 
of the pattern. The next row of figures 
is the mirror image of the first row, us- 
ing a horizontal axis of reflection. The 
following rows are each a vertical 
reflection of the previous row. Both 
types of vertical reflection are included 



in this pattern. Two examples of pat- 
terns created using this arrangement 
are shown in Figure 4. The pattern 
structure shown in Figure 3 uses ver- 
tical reflections also. The difference 
between the arrangement in Figures 2 
and 3 is that the top row in Figure 3 
consists of figures that are alternately 
right side up and upside down. Thus 
there is more visual variation within 
the pattern. Examples of patterns 
created with the ordering system shown 
in Figure 3, are illustrated in Figure 5. 
The program that creates a pattern 
based on the arrangement in Figure 2, 
and shown in Figure 4, is called Ver- 
tical Reflection 1 . The program based 
on the arrangement shown in Figure 3 
is listed as Vertical Reflection 2, and is 
further illustrated in the patterns in 
Figure 5. 

The exciting aspect of working with 
patterns is that a wide range of patterns 
can be created with one patterning 
system by using different shapes or 



forms as the pattern module. Depend- 
ing on the character and design of the 
pattern module, the patterns can ap- 
pear to be very different. The figure or 
shape to be used as the pattern module 
is defined in X and Y coordinates 
within the range of to 23. The pro- 
gram draws a shape by automatically 
connecting the points that define the 
shape. To allow you the freedom to use 
open or closed shapes, the program 
does not automatically connect the last 
point to the first point in the figure. In 
order to have a closed shape, the first 
point must also be considered to be the 
last point in the Ust of points that 
describe the figure. In line 60 of the 
programs you specify the number of 
points used to describe your figure. 
Then in line 95 the X and Y coor- 
dinates are listed sequentially in the 
DATA statement. Use graph paper 
with ten units per inch to draw your 
figure and to construct the list of 
points that define the figure. 



Figure 1 
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Axis of reflection 
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Reflection up 
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Reflection down 
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5 TEXT : HOHE 


3000 REH PLOTTING SUBROUTINE 


10 REM VERTICAL REFLECTION 1 


3005 IF N > 179 GOTO 350 


15 REM BY JOAN R. TRUCKENBROD 


3010 HPLOT NX(l) + M.NYil) + N 


20 REM COPYRIBHT 1981 


3020 FOR I = 2 TO NPTS 


50 DIN X(50),Y(50),X3(50),Y3(50) 


3030 HPLOT TO NX(I) + I1,NY(I! + 


,NX(50),NY(50) 


N 


58 REH NPTS IS THE NUMBER OF 


3040 NEXT I 


POINTS IN THE FIGURE 


3050 RETURN 


60 NPTS = 12 


4000 REM SUBROUTINE FOR VERTICAL 


70 FOR I = 1 TO NPTS: READ X(I), 


REFLECTION 


Yd): NEXT I 


4020 FOR I = 1 TO NPTS 


90 REH DATA DESCRIBES THE FIGURE 


4030 X3(I) = X(I) 


95 DATA 15,0,23,10,23,17,20,23,1 


4040 Y3(I) = 23 - Yd) 


8,19,6,23, 0,23,14, 15,11, 10,i 


4045 NEXT I 


,10,0,5,15,0 


4150 RETURN 


103 GOSUB 4000 


4900 REH SUBROUTINE 5000 ASSIGNS 


104 H6R2 


VALUES FOR PLOTTING ARRAYS 


105 HCOLDR= 7 


NX AND NY 


107 L = 1 


5000 FOR I = 1 TO NPTS 


110 FOR N = 12 TO 160 STEP 24 


5010 NXd) = X(I) 


120 FOR H = 5 TO 240 STEP 24 


5020 NYd) = Yd) 


140 ON L GOSUB 5000,5300 


5030 NEXT I 


150 GOSUB 3000 


5040 RETURN 


180 NEXT H 


5300 FOR I = 1 TO NPTS 


190 L = L + 1 


5310 NXd) = X3d) 


200 IF L > 2 THEN L = 1 


5320 NYd) = Y3d) 


250 NEXT N 


5330 NEXT I 


350 END 


5340 RETURN 



5 

10 
15 
20 
50 



58 



TEXT : HOHE 

REM VERTICAL REFLECTION 2 
REH BY JOAN R. TRUCKENBROD 
REM COPYRIGHT 1981 
DIM X(50),Y(501,X3(50),Y3(50) 

, NX (50), NY (50) 
REM NPTS IS THE NUMBER OF 

POINTS IN THE FIGURE 
60 NPTS = 12 
70 FOR I = 1 TO NPTS: READ Xd), 

Yd): NEXT I 
REH DATA DESCRIBES THE FIGURE 
DATA 15,0,23,10,23,17,20,23,1 

8,19,6,23,0,23,14,15,11,10,6 

,10,0,5,15,0 

GOSUB 4000 

HBR2 

HCOLOR= 7 
L = 1 

109 C = 1 

110 FOR N = 12 TO 160 STEP 24 
120 FOR M = 5 TO 240 STEP 24 
140 ON L GOSUB 5000,5300 

150 GOSUB 3000 
160 L = L + 1 

THEN L = 1 



90 
95 



103 
104 
105 
107 



IF L 
NEXT H 
190 C = C + 1 
200 IF C > 2 THEN C = 1 
L = C 
NEXT N 
END 

REH PLOTTING SUBROUTINE 
IF N > 179 GOTO 350 
HPLOT NXd) + H,NY(1) + N 
FOR I = 2 TO NPTS 
HPLOT TO NXd) + MjNYd) + 
N 

NEXT I 
RETURN 
REH SUBROUTINE FOR VERTICAL 

REFLECTION 
FOR I = 1 TO NPTS 
4030 X3(I) = Xd) 
4040 Y3(I) = 23 - Yd) 
4045 NEXT I 
RETURN 

REH SUBROUTINE 5000 ASSIGNS 
VALUES FOR PLOTTING ARRAYS 
NX AND NY 
5000 FOR I = 1 TO NPTS 
5010 NXd) = Xd) 
5020 NYd) = Yd) 
5030 NEXT I 
5040 RETURN 
5300 FOR I = 1 TO NPTS 
5310 NXd) = X3(I) 
5320 NYd) = Y3d) + .5 
5330 NEXT I 
5340 RETURN 



170 
180 



210 

250 

350 

3000 

3005 

3010 

3020 

3030 

3040 
3050 
4000 

4020 



4150 
4900 



® 
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by Randy Hawkins 

Gambler is a game program for up 
to four players requiring a 24K Apple 
with Applesoft, a 32K Atari, or a 16K 
TRS-80® Model I or III. The TRS- 
80® version has an optional sound 
routine which requires an external 
amplifier. 

Gambler is more than a dozen dif- 
ferent games of chance. You and as 
many as three of your friends compete 
in a contest to see who can parlay a 
$100 stake into $1000 first. The com- 
puter would not be content to just keep 
score and watch all this money change 
hands so it becomes a "player" with 
just the same chances of winning and 
losing as you have! 

On each player's turn, he is first 
given the opportunity to buy as many 
as three lottery tickets. A lottery ticket 
will return $50 to the owner if it mat- 
ches the winning numbers in the lottery 
held occasionally. After purchasing 
any tickets desired, the wheel of for- 
tune is shown. A block of light dances 
randomly around the board stopping 
momentarily beside the name of the 
many games which can be played. The 
player touches any key and the dot 
slowly settles into one category — that 
is the game the player will participate 
in on his turn. 

There are many types of games 
available in Gambler. Some are very 
simple; you may be instructed by a 
mysterious fortune teller to give or 
receive amounts of money to or from 
other players or the bank. The names 
of some of these categories are 
somewhat deceptive so pay close atten- 
tion as the message crawls slowly 
across the screen. 

There are also several betting games 
involving dice. You can win or lose 
money by betting on the outcome of 
the two dice rolls — will the total be 
even, will your roll be highest, or will it 
be the lucky number 7? There is even a 
form of "dice poker" with the best 
hand taking the pot. 

The game of Gambler even has its 

own horse racing track so that all the 

players can bet on the outcome and try 

to win the purse. Lotteries are also held 
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once in a while to pay off the winning 
lottery tickets. Big money is available 
whenever a sweepstakes is held. The 
correct bet on the outcome of the roll 
of six dice can bring the winner $150, 
$200, $300, or even $450. 

Gambler is loosely based on a board 
game with many extras added. Because 
the computer always plays, you can 
practice with it. And since as many as 
four humans can play along with the 
computer, it makes a great game for 
parties or when you have a large crowd 
eager to play with the computer. 
Overall, the program is fairly 
straightforward and easy to use. 

The TRS-80® will make all its own 
decisions and even "touch keys" as 
directed by the program. The only ex- 
ception to this is the note at the bottom 
of the page asking you to "TOUCH 
ANY KEY TO CONTINUE". Usually 
this delay is to allow the humans to 
read some instructions or make a deci- 
sion. Even when it is the computer's 
turn, it will wait for you to give the 
signal to continue. 

The winner is the first player to go 
over the $1000 mark. In case of a tie, 
the game continues until someone gets 
ahead. Should you go broke, the bank 
will advance you $100 but will charge 
you with one lOU. As soon as you are 
able, you must pay the lOU back at a 
price of $110. These transactions will 
take place only on your turn. 

So the time has come. Type in this 
program, gather three of your friends 
around the video screen, and see who is 
the champion gambler in your 
household. 



Variables 

A$: Contains name of game read 
from the DATA statements in lines 
390-410. 

Al$, A2$: Graphics strings used as 
borders in game selection screen. 
B$: Used for user response with 
INKEY$ function, or GET on the 
Apple. See variable B below for Atari 
equivalent. 

D(6): Utihty variables for six rolls of 
dice, six horse race positions, etc. 
D$(6): Contains the pictures of the 
six dice. All six are stored in variable 
D$ on the Atari. 
GN: Game number selected in 
selection routine. 

H$: Contains picture of the horses 
used in horse race subroutine (Atari 
and TRS-80® only). 
HM: Contains highest money total 
when searching for winner. 
HN: Number of player with highest 
money total. 

I, J, K, L, S: Utihty FOR-NEXT 
counters. 

IO(I): Contains number of lOUs held 
by player I. 

IP: Used as a loop variable to signal 
which player's turn it is. 
JJ: Upper boundary on the FOR- 
NEXT loop that increases gradually 
to slow movement of the dot in game 
selection function. 
L(I): Number of lottery tickets held 
by player I (Atari only). Replaces 
L$(I,0) in Apple and TRS-80® 
program. 

L$(I,J): Lottery ticket string array. I 
= Player number. Length of string 
L$(I,0) signals number of tickets held 
by player I on Apple and TRS-80®. 
L$(I,1) through L$(I,3) contain actual 
ticket strings. On the Atari, L$ 



contains all the ticket strings. 

M(I): Contains amount of money 

help by player I. 

1VI$: Used to hold the message printed 

out during various functions. 

N: Contains the number of players. 

N$(I): Contains name of player I. All 

names are contained in N$ in Atari 

version. 

PB: Contains the number of lOUs 

which can presently be paid off. 

Q: Dummy variable always used with 

the USR(O) function to create sound 

(TRS-80® only). 

QQ: Used in hnes 890 and 900 to 

create the four-tone "tune" played as 

the message M$ is printed (TRS-80® 

only). 

R$: Used as a utility string in 

construction of graphics. 

S$: First contains sweepstakes bet for 

player I, then contains results of that 

player's bet (TRS-80® only). 

SOUND$: Holding area for sound 

Machine Language routine (TRS-80® 

only). 

T$, Tl$: Used to generate an 

individual lottery ticket. 

TI: Used as a timing delay. 

X, Y: Used to hold present and 

previous PRINT® location for dot in 

game selection routine. XI and Yl 

also used in Apple and Atari 

versions. 



One note on the Atari version: In some 
lines there are imbedded graphics 
characters, which will be explained on 
the line below them. If a character in a 
graphics string is not defined below, 
then it is simply a normal letter within 
the string. 
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$$$$$i$»$$-m$$$$$$$$$$$<$$$$$ 

$ APPLESOFT BASIC $ 

i 'GAMBLER' i 

i AUTHOR: RANDY HAWKINS $ 

» TRANSL: RICH BOUCHARD $ 

$ (C) 1982 SOFTSIDE i 

5 DEF FN A(X) = INT ( RND (1) t 

i. + 1) 

Program initialization. Line 20 
creates A1$ and A2$, grapiiics 
strings used in the borders of the 
game selection screen. Subroutine 
420 does further initialization of 
graphics. Lines 30 and 40 set the 
number of players, N. Line 50 
determines players' names and 
initializes money, M(l), numbers of 
lOUs, 10(1), and lottery tickets, L$. 
If desired. Instructions are displayed 
after prompting in line 50. 

10 HOME : HTAB H: PRINT "SELCON 
E TO": PRINT : HTAB 16: FLASH 
: PRINT "BAMBLER": NORMAL 

15 DIH N$(6),H(iJ,D!6),I0ifi),LOt 
(i,3),Lt(5,3) 

20 A2$ = » 

": GOSUB 420 
i BOSUB 1390 

30 PRINT : PRINT "HOW MANY PLAYE 
RS (UP TO 4) ? "; 

40 BET B$:N = VAL (B$): IF N < 
1 OR N > 4 THEN 40 

42 PRINT B* 

50 FOR I = 1 TO N: PRINT "(JHO IS 

PLAYER I"; I;" ■;: INPUT N*( 

I):«(I) = 100:10(1) = 0;L0$( 

1,0) = "": NEKT I:Nt(I) = "A 

PPLE':H(I) = 100:10(1) = 0:N 

= N + 1: PRINT "DO YOU NEED 

INSTRUCTIONS ?"; 

60 BET B$: IF Bt = "Y" THEN BOSUB 
1370 

Game loop. Loop, using variable IP, 
cycles through each player's turn. 
Present money totals are shown in 
line 80. Problems dealing with 
players who have gone broke are 
handled in lines 90 through 120. 
Lottery tickets are bought in lines 
130 through 150. Game number is 
selected in subroutine 290, and line 
180 transfers control to the 
appropriate routine. 

70 FOR IP = 1 TO N 

80 HOME : INVERSE : PRINT "PRESE 

NT BANKROLLS 

lOUS ";: NORMAL : PRINT °- 

».. FOR J = 1 TO 

N: PRINT NtQ);: HTAB 20: PRINT 
M(J);: HTAB 35: PRINT lOiJ): 




NEH J: GOSUB 200 
82 PRINT : PRINT : PRINT "IT IS 

";Nt(IP);"'S TURN.": IF MdP 

) > = THEN 100 
90 lOdP) = lO(IP) + 1:M(IP) = «( 

IP) + iOO: IF MdP) < THEN 

90 
92 PRINT "YOU MUST BORROW MONEY 

TO CONTINUE TO PLAY AND P 

AY IT BACK TO THE BANK ... 
PLUS INTEREST!"! FOR TI = 
1 TO 2000: NEXT TI: GOTO 80 
100 IF lOdP) = OR MdP) < 110 

THEN 130 
110 PB = INT (MdP) / 110): IF P 

B > 01 (IP) THEN PB = lOdP) 
120 10 (IP) = 10 (IP) - PB:M(IP) = 

MdP) - 110 t PB: PRINT "YOU 

CAN PAY BACK ";PB;". lOU NOT 

E(S) AT": PRINT "110 DOLLARS 

EACH.": FOR TI = 1 TO 2000: 

NEXT TI: BOTO 80 
130 IF L*dP,0) = "LKX" THEN 160 
132 PRINT "WOULD YOU LIKE TO BUY 
A LOTTERY TICKET FOR $10 ? 

140 IF IP = N THEN PRINT "Y": GOSUB 
260:L*(IP,0) = L»(IP,0) + "X 
":L$dP, LEN (L*dP,0))) = T 
$5M(IP) = MdP) - 10: FOR TI- 
= 1 TO 1000; NEXT TI: GOTO 
80 
150 GET B*: IF B* = "N" THEN 160 
152 IF B* < > "Y" THEN 150 
154 PRINT "Y": GOSUB 260:Lt(IP,0 



) = L$dP,0) + ■X":L*dP, LEN 
(LidPjO))) = Tt:M(IP) = Md 
P) - 10: FOR TI = 1 TO 1000: 
NEXT TI: GOTO 80 

160 BOSUB 1470 

170 GOSUB 290 

180 ON BN BOSUB 1020,810,460,113 
0,1170, 1190,460,1200, 1230,12 
40, 460, 750, 1300, 940, 1020, 710 
,810,1310,1320,750,460,1330, 
710,810,1340,1350,1330,810,4 
60,940,1310,710.750,1360,810 
,710 

190 IP = IP + 1; IF IP < = N THEN 
80 

192 GOTO 70 

Called in game loop to check for 
winner. The highest money total is 
found in line 200. If greater than 
$1000, then winner is notified; 
otherwise game continues. Option 
of playing new game in lines 240 
and 250. 

200 HM = M(l)iHN = 1: FOR J = 2 TO 

N: IF M(J) > HM THEN HM = M( 

J)!HN = i 
202 NEXT i 

210 IF HM < 1000 THEN RETURN 
220 K = 0: FOR J = 1 TO N: IF M(J 

) = HM THEN K = K + 1 
222 NEXT J 
230 IF K > 1 THEN PRINT "SINCE 

THERE'S A TIE, KEEP GOING";: 
RETURN 
240 PRINT : PRINT N*iHN);" WINS 

THIS GAME WITH": PRINT HM;" 
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DOLLARS!" 


340 


IF PEEK ( - 16384) > 128 THEN 






242 FOR T = 1 TO 100: i. TT,5: ?! 




POKE - 16368,0: BOTO 360 


455 


HTAB 5 + X: PRINT " ";: HTAB 


T255 - T,5: NEH T 


350 


NORMAL : HTAB VI: VTAB Y: PRINT 




17 + X: PRINT " ";: HTAB 29 + 


246 PRINT 'WOULD YOU LIKE TO PLA 




" ";: BOTO 320 




X: PRINT ° "; RETURN 


Y AGAIN ?"; 


360 


J J = 100: FOR I = 1 TO 5 + FN 






250 SET Bl: IF B$ = "Y" THEN RUN 




A(4): FOR J = 1 TO JJ: NEXT 


Sweepstakes routine. Lines 460 






J:JJ = JJ + 100: HTAB Yl; VTAB 


through 480 set up graphics display. 






Line 490 offers optional 


252 END 




Y: NORMAL : PRINT " °;:Y = X 


instructions, which are in lines 510 


Lottery subroutine. Selects two-digit 




:Y1 = XI: INVERSE : HTAB XI: 


through 530. Lines 540 through 600 


lottery ticl<et that is different from 




VTAB X! PRINT ' »;: i TX t 


record each player's sweepstakes 


all other lottery ticl<ets issued. 




2 + n / 18 + 40, 20: XI = XI + 


bet 


n S$(J). Line 620 rolls six dice, 


Displays results in line 280 and 




t n Y^ lij f^rt Tin"Li UJ j*^ 'J 


displays them, and records them in | 


returns. 




19: IF XI / 22 THEN XI = 2:X 


D(X) 


The highest number rolled Is 






= X + 1 


stored In HN. Line 630 checks for 


260 T$ = CHRi (48 + FN A(5)):T1 


362 


4 TX t 2 + XI ./ 18 + 30,20 


pairs, 640-650 for a straight, 660 for 


i = CHRt <48 + FN A(6)): IF 


370 


IF X > 19 THEN X = 2 


a split, and 670 for single spots. 


Tl* < = T$ THEN 260 


372 


NEXT I 






262 Tt = T* + "-" + Tl$: FOR I = 


380 


FOR TI = 1 TO 300: NEXT TI:G 


460 


X = 0: HOME : HTAB 9: PRINT " 


1 TO N: IF L$(I,0) = "" THEN 




N = Y » 2 + INT (Yl / 16) - 




SWEEPSTAKES!": PRINT 


280 




3: FOR I = 1 TO 5: HTAB Yl; VTAB 




: HTAB 5: INVERSE : PRINT " 


270 FOR J = 1 TO LEN iLin,0)): 




Y: INVERSE : PRINT " »;: FOR 




6 H ": GOSUB 


IF T* = L*(I,J) THEN 260 




T = 10 TO 120 STEP 10: 4 TT. 




455: HTAB 5: PRINT "A";: HTAB 


272 NEXT J 




5; NEXT T: NORMAL : HTAB Yl: 




17: PRINT "C";:: HTAB 29: PRINT 


280 NEXT I; PRINT "YOU RECEIVE T 




PRINT " ";: FOR T = 110 TO 




°E": GOSUB 455 


ICKET NUMBER "sTi: FOR J = 1 




10 STEP - 10: Jc TT,5: NEXT 


462 


VTAB 12: X = 6: GOSUB 455: HTAB 


TO 20: A = PEEK ( - 16336): 




T: NEXT I 




11: PRINT »B";: HTAB 23; PRINT 


NEXT J: RETURN 


390 


DATA POKER PARTY, F R T U 
N E i, SWEEPSTAKES!, LOVE A N 




»D";: HTAB 35; PRINT "F": GOSUB 
455; HTAB 11: PRINT ' I 


Game selector. Prints border using 
A1$ and A2$. Reads names of 




EI6HB0R,EASY COME EZ GO,NIN 




J 


games from DATA statements in 




A FEW, SWEEPSTAKES!, UNLUCKY S 


470 


HTAB 1; VTAB 14; NORMAL : PRINT 


lines 390 through 410, and puts on 




EVEN, LOSE A FEW 




"REPAIR" ;: HTAB 1: VTAB 15: PRINT 


screen. Lines 320 through 350 wait 


400 


DATA EVEN STEVEN, SWEEPSTAKE 




"S=STRAI6HT" 


for players to touch any key. Lines 
360 through 380 settle on one game, 




S!, DAILY DOUBLE, POT LUCK,HI6 


480 


INVERSE : FOR X = 1 TO 6; HTAB 


set the game number GN, and 




H ROLLERjPOKER PARTY, LOTTERY 




X t 6 - 2: VTAB 8: PRINT Dt( 


return. 




.FORTUNE !, JACKPOT, tlO 




X);: NEXT X: NORMAL 






BONUS, OFF TO THE RACES, SWE 


490 


HTAB 1; VTAB 17; PRINT "DO Y 


290 RESTORE : HONE : INVERSE : PRINT 




EPSTAKES!,LOSE THIS TURN 




OU NEED SWEEPSTAKES INSTRUCT 


A2*: FOR J = 1 TO 18: PRINT 


410 


DATA LOTTERY, F R T U N E 




IONS ?■; 


" »;: HTAB 3: PRINT " ";: HTAB 




!,TAX TIHE,B0NAN2A,L0SE THIS 


500 


GET Bt 


20: PRINT " ";: HTAB 22: PRINT 




TURN,F R T U N E !, SWEEPS 


510 


IF Bt = "N" THEN 540 


" ";: HTAB 39: PRINT " »: NEXT 




TAKES!, HIGH ROLLER, JACKPOT, L 


512 


HTAB 1: VTAB 17: CALL - 958 


J: PRINT A2$: NORMAL 




OTTERY, HORSE RACE, MAD MONEY, 




: PRINT "IN SWEEPSTAKES EVER 


300 FOR X = 2 TO 19: READ At: HTAB 




FORTUNE i, LOTTERY 




YONE ANTES tlO. EACHPLAYER 


4: VTAB X: PRINT At;: HTAB 2 








BETS ON THE OUTCOME OF THE R 


3: READ At: PRINT Atj: NEXT 


Graphics initialization. Set up 




OLL OF 6 DICE. THERE ARE T 


J 


graphics variables D$(1) through 




HREE TYPES OF BETS.": GOSUB 


310 POKE - 16368,0:X1 = 2:X = 2 


D$(6) which are pictures of the six 
dice. 




1470 


: HTAB 1: VTAB 22: PRINT Nt! 


520 


HTAB 1: VTAB 17: CALL - 958 


IP);",»: PRINT " TOUCH ANY K 


420 Rl = CHRt (10) + CHRt (8) ^■ 




: PRINT "ONE WAY IS TO BET 


EY FOR YOUR SELECTION"; 




CHRt (8) + CHRt (8);Dt(l) = 




N WHERE THE HIGHEST NUMBER 


320 Y = X:Y1 = XI: INVERSE : HTAB 




" - — - — ":Dt(2) = 




ROLLED WILL APPEAR. IF THE 


XI: VTAB X: PRINT " ";: FOR 




" 0- — - — " 




HIGH NUMBER APPEARS IN A,B.C 


T = X * 2 + INT (XI / 13) + 


430 


Dt(3) = » 0-— ":D 




,D,E OR F YOU WINt300. LETT 


10 TO X t 2 + INT (XI / 13) 




t(4) = "0 -—0 0" 




ERS G,H,I AND J COVER TWO 


STEP - 2: 4 TT,6: NEXT T:X 


440 


Dt(5) = "0 0- — -—0 0";D 




SPOTS, IF YOU BET G, YOU C 


= FN A(18) + 1:X1 = ( FN A 




t(6) = "0 0— -0 0— -0 0" 




OVER SPOTS A" 


(2) - 1) t 19 + 2 


450 


FOR I = 1 TO 6: FOR X = 4 TO 


522 


PRINT "AND C AND CAN WIN tl5 


330 IF IP = N AND FN A(30) = 25 




11 STEP 7:Dt(I) = LEFTt (Dt 




0." 


THEN 360 




(I),X - 1) + Rt + MIDt (Dt( 


530 


GOSUB 1470: HTAB 1: VTAB 17; 


332 IF IP = N THEN 350 




I),X + 4); NEXT X; NEXT I: RETURt 




CALL - 953: PRINT "ANOTHER 
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BET IS «P» FOR PAIRS. IF 


610 


FOR K = 1 TO N: IF B$ = S$<K 




) = HN THEN S$y) = "$300 ON 


m DICE NEXT TO ONE ANOTHE 




) THEN 600 




SPOT ■ + S$!J)!H(J) = MU) + 


R HATCH, YOU HIN $200, THE 


612 


NEXT K; PRINT B$i:S$(J) = B$ 




300: GOTO 690 


THIRD BET IS «S» FOR A 




: NEXT J:HN = 1 


674 


S${J) = "YOU LOSE «ITH SPOT " 


STRAI6HT. IF 3 CONSECUTIVE 


620 


GOSUB 1470: INVERSE : FOR X = 




+ S$(J) 


DICE APPEAR IN NUHERICAL OR 




3 TO 10: HTAB 1: VTAB X: CALL 


680 


IF LEN (S$iJ)) = 1 THEN St( 


DER, YOU WIN $450." 




- 868: NEXT X: FOR X = 1 TO 




i) = "HAYBE NEXT TIME!" 


532 60SUB 1470 




6; FOR L = 1 TO 5:D!X) = FN 


690 


NEXT J: HTAB 1: VTAB 17: CALL 


540 HTAB 1: VTAB 17: CALL - 958 




A (6): HTAB X » 6 - 2: VTAB 8 




- 958:X = 17: FOR J = IP TO 


: HTAB 30: PRINT "A-F $300": 




: PRINT D$(D(X))i: FOR TI = 




N: HTAB 1: VTAB X: PRINT N$! 


HTAB 30: PRINT »G-J $150": HTAB 




1 TO 50: NEXT Tl: NEXT L: IF 




•J);" - "|S$(J);:X = X + 1; NEXT 


32: PRINT "P $200": HTAB 32: 




D!X) > HN THEN HN = D!X) 




J: IF IP < > 1 THEN FOR J = 


PRINT "S $450": FOR I = 1 TO 


622 


NEXT X: NORMAL 




1 TO IP - 1: HTAB 1: VTAB X: 


N:MiI) = H(I) - 10:S$(I) = " 


630 


FOR J = 1 TO N: IF S$(J) < > 




PRINT N$(J)i" - ";S$(J);:X = 


": NEXT I:X = 17: VTAB 24: HTAB 




"P" THEN 640 




X + 1: NEXT J 


10: PRINT "PLACE YOUR BETS:" 


632 


FOR K = 1 TO 5: IF DiK) = D( 


700 


GOSUB 1470: RETURN 


i 

550 FOR .1 = IP TO N: HTAB 1; VTAB 
X: PRINT N$(J);" - ";:X = X + 
1 

560 IF .1 < > N THEN 570 

562 B$ = CHR$ (64 + FN A(ll)): IF 
B$ = "K" THEN B$ = "P" 


634 

640 
642 


K + 1) THEN S$(J) = "$200 FO 

R A PAIR»;«(J) = N(J) + 200: 

K = 5: GOTO 690 

NEXT K:S$(J) = "SORRY, NO PA 

IRS!": GOTO 690 

IF S$(J! < > "S" THEN 660 

FOR K = 1 TO 4: IF DiK) = D( 


Lottery subroutine. Instructions and 
iottery ticlcets stiown in line 710. 
Array D(J) set equal to zero; six dice 
rolled and displayed. If a number J 
is rolled, D(J) set to 1. Winning 
ticlcets evaluated in line 730, lottery 
ticket string L$ set back to null 
and return. 


564 GOTO 580 




K + 1) - 1 AND D(K) = D!K + 






570 GET B$: IF B$ > "S" AND B$ < 




2) - 2 THEN S$(J) = '$450 FO 


710 


HOME : HTAB 12: PRINT "L T 


"K" OR B$ = "P" OR B$ = "S" THEN 




R THE STRAIGHT":HiJ) = I1(J) + 




T E R Y": PRINT : PRINT "IF 


580 




450: GOTO 690 




BOTH THE NUMBERS ON YOUR TI 


572 SOTO 570 


650 


S$!-J) = "NO STRAIGHT!": SOTO 




CKET ARE AMONG THE SIX NUMB 


5S0 FOR K = 1 TO N: IF B$ = S$!K 




690 




ERS ROLLED, YOU HILL RECEIV 


} THEN 560 


660 


IF (S$!J) = "G" AND iD(l) = 




E $50 FOR THAT TICKET.": PRINT 


582 NEXT K: PRINT B4;:S$iLi) = B$ 




HN OR D(3) = HN)) OR (S$(J) = 




"HERE ME GO ..." 


: NEXT i 




"H" AND iD(3) = HN OR D(5) = 


712 


FOR J = 1 TO N: HTAB 1: VTAB 


590 IF IP = 1 THEN HN = 1; GOTO 




HN)) OR !S$(J) = "I" AND (D( 




11 t J: PRINT N$(.3);5 HTftB 2 


620 




2) = HN OR D(4) = HN)) OR (S 




0: PRINT L$(J,l)i: HTAB 26: PRINi 


592 FOR J = 1 TO IP - 1: HTAB 1: 




$!.J) = "J" AND fD!4) = HN OR 




L$(.1.2)i: HTAB 32: PRINT L$( 


VTAB X: PRINT N$(J);" - "•;: 




D(6) = HN)) THEN S$(J) = "$1 




.1,3): NEXT J; GOSUB 1470 


X = X + 1 




50 FOR BET ON " + S$(J):«(J) 


720 


INVERSE : FOR J = 1 TO 6:D(J 


600 GET B$: IF B$ > "3" AND B$ < 




= tliJ) + 150: GOTO 690 




) = 0: NEXT J: FOR J = 1 TO 


"K" OR B$ = "P" OR B$ = "3" THEN 


670 


IF S$(J) < = "3" OR S$!J) > 




6:K = FN fl(6): HTAB J » 6 - 


610 




= "G" THEN 680 




2: VTAB 8: PRINT D$(K);:D(K) 


602 GOTO 600 


672 K = ASC (S$!.])) - 64: IF D(K 




= 1: NEXT i: NORMAL 
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730 FOR J = 1 TO N! IF L$(J,0) = 


790 HTAB 1: VTAB 22: CALL - 958 


L L E R - EVERYONE ANTES t2 


■■ THEN 738 


: IF K < = N THEN PRINT N« 


AND ROLLS THD DICE. THE H 


732 FOR K = 1 TO LEN (L«<J,0)): 


(K);' "i:M{K) = M(K) + 100: GOTO 


IBHEST TOTAL TAKES THE «1 


VTAB 11 + Js HTAB 14 + K I 


800 


00 PRIZE. TO ROLL DICE, 


hi FOR L = 1 TO 550: NEXT L: 


792 PRINT "HORSE NUMBER "jK;" "; 


TOUCH ANY KEY ON YOUR TURN." 


IF »( VAL 1 LEFT* (L*(J,K), 


800 PRINT "HINS THIS RACE!": GOSUB 


! GOSUB 1470 


1))) = I AND D{ VAL ( RIGHT* 


1470: RETURN 


950 FOR J = 1 TO N:M(J) = H<J) - 


<L«(J,K),1))) = 1 THEN H(J) = 


Fortune teller routine. Fortune 


20:X = 3 + J » 3:X1 = ii - IMT 


H(J) + 50: PRINT "$50";: BOTO 


teller's message chosen randomly In 


(J / 2) t 2) » 3 t 12: HTAB 


735 


lines 810 through 880. Message 


1: VTAB X: PRINT N*(J);: GOSUB 


734 PRINT "— ■;: i T255,i0! GOTO 


displayed in lines 900 through 920. 


1450:D!J) = K:X1 = XI + 6: GOSUB 


73i 




1450:D(J) = D(J) + K: HTAB 2 


735 FOR T = 30 TO 10 STEP - 2: k 


810 M* = "": HOME : VTAB 4: HTAB 


5: VTAB X: PRINT "YOUR TOTAL 


TT,10: k T255 - T,10: NEXT T 


9: INVERSE : PRINT "THE FORT 


IS ";D(J);; NEXT i 




UNE TELLER SAYS:":K = 1:M = 


960 HN = D(1):HH = 1: FOR J = 2 TO 


736 NEXT K 


10 t FN A(5) + 50 


N: IF DfJ) > HN THEN HN = D( 


738 NEXT J 


820 IF FN A!5) = 5 THEN Mt = "H 


J):HM = J 


740 60SUB 1470: FOR J = 1 TO N: FOR 


OLD A SWEEPSTAKES. ":K = 2: GOTO 


962 NEXT J 


K = TO 3:Lt(J,K) = "": NEXT 


890 


970 K = 0: FOR J = 1 TO N: IF D(J 


K: NEXT J: RETURN 


830 IF FN A(5) = 5 THEN M* = "H 


) = HN THEN K = K t 1 


745 i T250,3i PRINT ' ";: INVERSE 


OLD A LOTTERY. ■:K = 3: GOTO 


972 NEXT J 


! PRINT " ";: NORMAL : PRINT 


890 


980 IF K = 1 THEN HTAB 1: VTAB 


R*; CHR* {8); CHRt (8);" /"; 


840 IF FN A(2) = 2 THEN M* = "C 


22: PRINT N*(HM)i" HINS THE 


! INVERSE : PRINT " ";: NORMAL 


OLLECT FROM "sK = - 1: SOTO 


POT!":M<HM) = M(HM) * 100: GOSUB 


! PRINT Rti CHR$ (8);" <>"; 


850 


1470: RETURN 


: k T245,6 


842 M* = "PAY TO " 


990 HTAB 1: VTAB 22: PRINT "HE'V 


747 i T255,3: PRINT CHRt (8); CHR* 


850 J = FN A(N + 1): IF J < > I 


E GOT A TIE! THOSE HIGH ROL 


(8) !"><"!! RETURN 


P THEN 860 


LERS HILL ROLL AGAIN!": GOSUB 




852 M* = Mt + "EVERYONE" !M( IP) = 


1470: HTAB 1: VTAB 6: CALL - 




M(IP) - K » N t M: FOR J = 1 


958 


Horse race routine. Picture of a 






horse H$ in subroutine at line 745. 


TO N!M(J) = H(J) + K * M: NEXT 


1000 FOR J = 1 TO N; IF D<J) < H 


Heading and instructions in lines 


J: GOTO 880 


N THEN DfJ) =0: NEXT J: GOTO 


750 tlirough 760. Horizontal screen 


860 IF J = N + 1 THEN M* = M* + 


1010 


position, in array D(K). Each of six 
horses is randomly advanced by 


"THE BANK":M(IP) = M(IP) - K 


1002 X = 3 + J » 3:X1 = (J - INT 


incrementing print position. When 


» M: GOTO 880 


fJ / 2) t 2) t 3 + 12: HTAB 


D(K) approaches end of screen in 


870 M* = Mt + N*(J);M(IP) = M(IP) 


1: VTAB X: PRINT N*(J),-: GOSUB 


line 780, winner announced in lines 


- K t M:M<J) = M(J) + K » M 


1450!D(J) = K:X1 = XI t 6: GOSUB 


790 and BOO. 




1450:D(J) = D(J) + K: HTAB 2 




880 Mt = Mt + " ■ + STRt (M) + " 


5: VTAB X: PRINT "YOUR TOTAL 




DOLLARS." 


IS ";D(J)i: NEXT J 


750 HOME : FOR J = 1 TO i: HTAB 


890 REM 


1010 GOTO 960 


2: VTAB J » 3: PRINT Jj: HTAB 


900 Mt = A2t + Nt(IP) +","<■ Mt 




11:D(J) = 11: GOSUB 745: VTAB 


+ A2t! FOR J = 1 TO LEN (M 


Poker party subroutine, instructions 
in line 1020. Three dice rolled In 


i t 3: HTAB 39: PRINT ".";: NEXT 


t) - 38: t T(J - INT (J / 4 


lines 1030 for ail players. Checic for 


J: FOR J = 1 TO N: HTAB 1: VTAB 


) t 4) t 10 + 200,5: HTAB 1: 


three of a kind in line 1040, pair In 


J t 3: PRINT N*(J);!M(J) = H 


VTAB 8: PRINT HIDt (Mt,J,4 


line 1050, and straight in line 1070. 


(J) - 20: NEXT i: HTAB 5: VTAB 


0);: FOR TI = 1 TO 55: NEXT 


Winner announced In line 1120. If a 
tie, start routine again. 


1 


TI: NEXT j!Mt = "" 




752 PRINT "HORSE RACES 


910 NORMAL : GOSUB 1470 


1020 HOME ! PRINT "POKER P 


in 


930 IF K = 2 THEN 460 


ARTY-- EACH PLAYER P 


760 HTAB 1: VTAB 22: PRINT "EVER 


932 IF K = 3 THEN 710 


AYS t20 AND ROLLS THREE DICE 


YONE HAS BET *20,": PRINT "T 


934 RETURN 


. THE BESTPOKER HAND (THREE 


HE WINNER HILL HILL RECEIVE 




OF A KIND > STRAIGHT >PAIR) 


*100.": GOSUB 1470 


High roller game. Instructions in line 
940; all roll two dice In line 950. 


HINS tlOO.": PRINT "TOUCH A 


770 REM 


High roll determined In line 960 and 


NY KEY TO ROLL DICE.": GOSUB 


780 FOR I = 1 TO 3!K = FN A (6): 


970. Single winner announced in line 


1470: FOR I = 1 TO N:Mai = 


D(K) = D(K) + 1: HTAB D(K): VTAB 


980, tie roll causes reroll In lines 990 
through 1010. 


M(I) - 20: NEXT l!HM = 


K » 3: GOSUB 745: IF D(K) < 


1030 FOR I = 1 TO N!X = I » 3 + 


35 THEN NEXT I: GOTO 770 


940 HOME : PRINT "HIGH R 


4: HTAB 1: VTAB Xj PRINT Nt( 
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I);: FOR R= 1 TO 35X1 = 10 + 


I) = HN THEM K = K M:J = I 


= (H + K) I 10:N(IP) = HdP 


H » 6;J = I: SOSUB 1450!D(H) 


1112 NEXT I 


) + H 


= K! NEXT M:P(I) = 0: FOR T 


1120 IF K = 1 THEN HTAB 1: VTAB 


1172 HTAB 5: VTAB 12: PRINT 'YOU 


1 = 1 TO 350: NEXT TI: HTAB 


22: PRINT N$(J);" WINS THE P 


WIN "jH;" DOLLARS." 


16i VTAB X: CALL - 958i PRINT 


OT OF »100°:H(J) = I1(J) + 10 


1180 GOSUB 1470: RETURN 


D(l);" ";»(2)i" 'jDiS);" '; 


0: 80SUB 1470: RETURN 


Short message routines. Simple 




1122 HTAB 1: VTAB 22: PRINT "WE 


procedures to handle following 


1040 IF D(l) = !)(2) AND D(l) = D 


HAVE A TIE.,,SO LET'S ALL PL 


special routines: Win a Few (1190), 


(3) THEN PRINT "THREE OF A 


AY ANOTHER HAND!": 60SUB 


Unlucky Seven (1200), Lose a Few 
(1230), Even Steven (1240), Pot Luck 


KIMD!"|:Pn) = 30 + D(l): GOTO 


1470: HTAB 1: VTAB 6: CALL - 


(1300), Jackpot (1310), $100 Bonus 


1100 


958:HH = 0: GOTO 1030 


(1320), Lose a Turn (1330), Tax Time 


1050 IF D(l) = D(2) THEN P(I) = 




(1340), Bonanza (1350), and Mad 


iVW At VIA' AflJa/ fril*l1 f I m i 


Love thy neighbor routine. Set 


iUoney (1360). 


10 + D(l) 


message in line 1150, adjust money 




1052 IF D(l) = I)(3) THEN P(I) = 


in line 1160, and jump to dispiay 




10 + D(l) 


routine in iine 890. 


1190 HONE : PRINT "WIN A F 


1054 IF D(2) = D<3) THEN Pil) = 




E W -- THE BANK WILL PAY Y 


10 t D(2) 


1130 HONE :K = 0:N = FN A(5) i 


OU TEN TIHES THE ROLL OF ONE 


1060 IF P!I) > THEN PRINT "A 


10 + 50 


DIE,': PRINT "TOUCH ANY KEY 


PAIR!";: 60T0 1080 


1140 i = FN A(N): IF J = IP THEN 


TO ROLL DIE, "iNidP);".": 60SU 


1070 FOR J = 1 TO 3: IF (D(l) = 


1140 


1470:J = 1P:X1 = li:X = 6: GOSUB 


D(2) + 1 AND D(l) = D<3) + 2 


1150 fl* = "SHOW THAT YOU ARE A GO 


1450:H = K t 10:«dP) = HdP 


) OR (DU) = »(2) - 1 AND D< 


OD NEIGHBOR AND GIVE " + N$( 


) + H: GOTO 1172 


1) = D(3) - 2) THEN P(I) = 2 


J) + " " + STR* !H) + " DDL 


1200 HOHE : PRINT «U N L U C K Y 


0: GOTO 1080 


LARS." 


SEVEN- ROLL TWO D 


1072 HN = D(1):D(1) = D(2):D(2) = 


1160 ll(IP) = HIIP) - H:N(J) = N(J 


ICE. IF THE TOTAL IS SEVEN 


D(3)!D(3) = HN: NEXT J 


) + H: GOTO 890 


YOU LOSE $100. FOR ANY OT 


1080 HN^ DID: FOR J = 2 TO 3: IF 




HER TOTAL, YOU WIN tlOOTOUCH 


D(J) > HN THEN HN = D(J) 


Easy come easy go routine. Give 
instructions and roii two dice in iine 


ANY KEY TO ROLL DICE, "iNt( 


1082 NEXT J 


1170. Adjust money and return. 


IP)|".": GOSUB 1470:.] = IP:X 


1090 P<I.l = P(I) + HN: IF P(I) > 




= i:Xl = 14 


20 THEN PRINT 'STRAIGHT! ";: 


1170 HONE : PRINT "EASY CO 


1202 GOSUB 1450:M = K:X1 = 20: GOSUB 


60T0 1100 


HE EASY GO- T 


1450: H = H + K 


1092 PRINT "HISHEST ROLL = 'iPd 


HE BANK HILL PAY YOU 10 TIHE 


1210 IF H < > 7 THEN H = 100: Hi 


); 


S THE ROLL OF 2 DICE. TOUCH 


IP) = HdP) + «: GOTO 1172 


1100 IF P(I) > HM THEN HH = Pfl) 


ANY KEY TO ROLL DICE,": PRINT 


1212 H = 100:HdP) = HdP) - N 




NtdP);".";: GOSUB 1470:J = 


1214 HTAB 5: VTAB 12: PRINT "YOU 


1102 NEXT 1 


IP:X = 6:X1 = 14: GOSUB 1450 


LOSE "jH;" DOLLARS.": GOSUB 


1110 K = 0: FOR I = 1 TO N: IF P( 


:N = K:X1 = 20: GOSUB 1450:N 


1470: RETURN 
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1230 HOME ; PRINT "LOSE A 


1330 HOME :M$ = "YOU JUST LOST T 






F E « - YOU «U5T PAY THE B 
ANK TEN TIHES THE ROLL OF ON 


HIS TURN!":K = 0: GOTO 890 
1340 HOME :Mt = "PAY $100 Ui TO 


computer's dice choice is made In 
line 1450. Lines 1470 and 1480 print 
a message and wait for keyboard 

resDonse. 


E DIE. "5 PRINT "TOUCH ANY KE 


THE BfiNK!":MdP) = MdP) - 


Y TO ROLL DIE, ";Nt(IP);°.": 


100:K = 0: GOTO 890 


■ WW|« 




6DSLIB J 470: J = IP: XI = li:X 


1350 HOME :M = FN Ai5) t 10:M(I 






= ii BOSUB 1450:H = K » 10: 


F) = MdP) + H t N: FOR J = 






RdP) = ft!IP) - (1: GOTO 1214 


1 TO N:M(J) = M(J> - M; NEXT 


1390 


J = 767:P0K.* = "201,084,208, 




J:Mt = "»HAT A BONANZA! EVE 




015,032,177,000,032,248,230, 


1240 HOME : PRINT "EVEN ST 


RYONE PAYS YOU " + STR* !M) 




138,072,032,183,000,201,044, 


EVEN-- YOU MAY BET UP T 


+ " DOLLARS. ":K = 0: GOTO 8 




240,003,076,201,222,032,177, 


Q i% AND ROLL T«0 DICE. IF 


90 




000,032,248,230,104,134,003, 


THE TOTAL IS EVEN, YOU COLL 


1360 HOME :M = FN Ai5) t 10:Kd 




134,001,133,000": BOSUB 1430 


ECT TWICE YOUR BET. = : PRINT 


P) = MdP) - « t N: FOR J = 






"TOUCH ANY KEY TO ROLL DICE. 


1 TO N;M(J) = M(J) + M: NEXT 


1400 J = 802:P0K* = "170,160,001, 


": PRim : PRINT Nt'IP);", H 


J:M* = "THIS OUGHT TO MAKE Y 




132,002,173,048,192,136,208, 


OW MUCH WILL YOU BET ?"; 


OU MAD. GIVE EVERYBODY " + 




004,198,001,240,007,202,208, 


1242 IF IP = N THEN B$ = STR* ( 


STR* (M) + " DOLLARS, ":K - 




246,166,000,208,239,165,003, 


FN A(4) + 5): BOTO 1260 


0: BOTO 890 




133,001,198,002,208,241,096" 


1250 GET B*: IF VAL (B*) < 1 THEN 
1250 


Game instructions. Cailed optionaliy 
from initiaiization section. 


1410 


: GOSUB 1430 
POKE 1013,76: POKE 1014,0: POKE 


1260 M = VAL (Bl) t 10: PRINT : HTAB 






1015,3: RETURN 


22; PRINT M;" DOLLARS": BOSUB 


1370 HOME ! PRINT " THIS IS T 


1430 


FOR I = 1 TO LEN iPOK*) / 


1470 


HE GAME OF "j; FLASH ! PRINT 




4 + 1: POKE I + J, VAL ( MID* 


1270 :< = 9::<1 = 14:J = IP: BOSUB 


"GAMBLER!-! NORMAL s PRINT i 




(POK*,I t 4 - 3,3)): NEXT I; 


1450:P = K:X1 = 20: BOSUB 14 


PRINT "YOU AND THE APPLE AR 




RETURN 


50:P = P + K 


E IN CONTEST TO SEE WHO 


1450 


INVERSE : POKE - 16336,0: IF 


1280 HTAB 5: VTAB 14: IF INT (P 


WILL BUILD HIS «100 BANKROLL 




J = N THEN FOR L = 1 TO FN 


/ 2) » 2 = P THEN PRINT "Y 


INTO »1000 FIRST. MONEY 




Ai50):K = FN A(6): VTAB X: HTAB 


OU «IN ";2 t M;" DQLLARS.":M 


IS MADE AND LOST"; 




XhA = PEEK ( - 16336): PRINT 


(IP) = M(IP) + 2 t H: SOTO 1 


1371 PRINT "THROUGH A SERIES OF 




D*(K)i: NEXT L: NORMAL : RETURN 


290 


6AMES OF CHANCE -" 






1282 PRINT "YOU LOSE "jM;" DOLLA 


1372 PRINT "FROM HORSE RACING AN 


1460 K = FN A(6); HTAB XI: VTAB 


RS.":M(IP) = MdP) - H 


D DICE GAMES, TO LOTTERIE 




X: PRINT D*(K);! IF PEEK ( - 


1290 GOSUB 1470: RETURN 


S AND SMEEPSTAKES! IF YOU 




16384) > = 128 THEN 1466 


1300 HOME :M = 10 t FN Ai5) + 1 


SHOULD LOSE ALL YOUR MON 


1462 A = PEEK ( - 16336): GOTO J 


0:M(IP) = MdP) - M:Mt = "MH 


EY YOUR lOU WILLBE ACCEPTED 




460 


Y DON'T YOU S«EETEN THE POT 


(AS LONG AS YOU PAY IT BACK 


1466 


POKE - 16368,0: NORMAL : RETUR 


BY SIVINB THE BANK " + STRt 


WITH INTEREST). GOOD LUCK!' 






(M) + " DOLLARS. ":K = 0: GOTO 


:K = 0: BOTO 910 


1470 


HTAB 8: VTAB 24: PRINT "TOO 


890 


1389 BOTO 1389 




CH ANY KEY TO CONTINUE";: POKE 


1310 HOME :M = FN A(5) t 10 + 5 






- 16368,0 


0:H$ = "YOU HIT THE JACKPOT! 




1430 


IF PEEK ( - 16384) > = 12 


COLLECT " + STR* !M) + " 


Utility subroutines. Lines 1390 
througii 1440 set up Ampersand 
Tones (from August, 1980, SoftSide, 
by iVlarl( Cross). Lines 1450 througii 
1460 wait for input before stopping 
on one of tlie six dice pictures at 
screen position X1,X. Tfie 




8 THEN VTAB 24: HTAB 6: CALL 


- DOLLARS. °:K = 0:M(IP) = MdP 
) + M; GOTO 890 
1320 HOME jHdP) = MdP) + 100:M 
t = "PLEASE ACCEPT THIS *100 
BONUS! ":K = 0: BOTO 890 


1482 
1484 


- 868: POKE - 16368,0: RETURN 

IF FN A(9) = 1 THEN 4 T FN 
Ad50) + 50,5 
GOTO 1480 



^fBK«K95«h«::lV 



4K«K«::9^«':«lr#<- 



^K»511H';llr*l:l. 
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$$$$$$$$$$$$$$$$$$$$$$$$$${$$$ 

% ATARI BASIC $ 

» 'GAHBLER' $ 

» AUTHOR: RANDY HAWKINS $ 
$ TRANSL: RICH BOUCHARD $ 
» (C) 1982 SOFTSIDE % 

$$$$$$$$$${$$$$$$$$$$$$$$$$$$$ 

Program initialization. Line 20 
creates A1$ and A2$, graphics 
strings used in the borders of the 
game selection screen. Subroutine 
420 does further initialization of 
graphics. Lines 30 and 40 set the 
number of players, N. Line 50 
determines players' names and 
Initializes money, IVI(I), numbers of 
lOUs, 10(1), and lottery tickets, L$ 
and number of lottery tickets, L(l). 
If desired, instructions are displayed 
after prompting in line 50. 

1 6RAPHICS 

12 POKE 82,1:0PEN «2,4,0,"K!" 

15 DIM N$(50),Z$(40),L$(50),M(6),IO(6) 
,L(6),T»(3),T1»(3),A1»(40),A2«(40),AI( 
30),D*(102),R$(4),0$(39),S$(6),B$(1) 

16 DIM D(6),H$(16),M«(140),P(6) 

18 FOR T=l TO 50:N$(T,T)= NEXT TsL* 

=N«;0»=N«(1,39) 

20 Al$=" "iAl«(3,3)= 

CHR$(25)iAl»(LEN(Al»)+l)=Al$!A2$=" , 

II 

22 A1»(LEN(A1$)+1)="J'!60SUB 420 

30 PRINT "How many players (up to 4) ? 

" ■ 

40 SET «2,NiN=N-4B!lF N<1 OR N>4 THEN 

40 

42 PRINT N 

50 FOR 1=1 TO N:? "Who is player l"|I; 

i INPUT Z»;N$(I»10-9,ItlO)=Z$!M(I)=100! 

IO(I)=0 

52 L(I)=0;NEn l!N»(I»10-9,I»10)="ATAR 

I ";H(I)=100!lO(I)=0!N=N+l!PRINT " 

Do you need to see instructions?"; 

60 BET «2,B:IF CHR«(B)="y" THEN BOSUB 

1370 

Game loop. Loop, using variable IP, 
cycles through each player's turn. 
Present money totals are shown in 
line 80. Problems dealing with 
players who have gone broke are 
handled in lines 90 through 120. 
Lottery tickets are bought in lines 
130 through 150. Game number is 
selected in subroutine 290, and line 
180 transfers control to the 
appropriate routine. 

70 FOR IP=1 TO N 

80 GRAPHICS 0! PRINT " Present bankrolls 
lOUs";? " 

Hi 

I 
Bl RE« Second string' 39 <CTRL> R's 
82 FOR J=l TO NjPRINT N»(J»10-9,JllO)i 




$";I1(J):P0SITI0N 35,J+1:? I 
0(J):NEXT J:? :SOSUB 200 
84 PRINT "It is "iN«(IPnO-9,IPI10)i"' 
s turn."!? !lF t1(IP)>=0 THEN 100 
90 IO(IP)=IO(IP)+l:M(IP)=t1(IP)+100!lF 
I1(IP)<=0 THEN 90 

92 PRINT "You lust borrow iioney to con 
tinue to play and pay it back to the 

bank .... plus interest!" 
94 FOR TI=1 TO BOOsNEXT ThBOTO 80 
100 IF IO(IP)<=0 OR MdPXllO THEN 130 
no PB=INT(I1(IP)/110):IF PBMOdP) THE 
N PB=IO(IP) 

120 I0(IP)=I0(IP)-PB:M(IP)=l1(IP)-110tP 
B!PRINT "You can pay back "|PBj« lOU n 
ote(5)":? "at 110 dollars each." 
122 FDR TI=1 TO 800:N£XT TI 
130 IF L(IP)=3 THEN 160 
132 PRINT "Would you like to buy a lot 
tery ticket for $10 ? "; 
140 IF IP=N THEN PRINT "Y"!GOTO 154 
150 SET «2,B!lF CHR*(B)="N" THEN 160 
152 IF CHR$(B)<>"Y" THEN 150 
154 ? CHR»(253)!60SUB 260:L(IP)=L(IP)+ 
l!L$(IP«9+L(IP)«3-ll,IPt9+L(IP)»3-8)=T 
$!t1(IP)=M(IP)-10 

156 FOR TI=1 TO 400SNEXT TIsGOTO 80 
160 ? iPOSITION 4,20:7 "Hit any key to 

continue"; 

170 GET *2,B! BOSUB 290 
180 ON GN BOSUB 1020,810,460,1130,1170 
, 1190, 460, 1200, 1230, 1240, 460, 750, 1300, 
940,1020,710,810,1310,1320,750,460 
182 IF 6N>21 THEN ON GN-21 BOSUB 1330, 
710,810,1340,1350,1330,810,460,940,131 



0,710,750,1360,810,710 

190 IP=IP+l!lF IP>N THEN 70 

192 GOTO 80 

Called in game loop to check for 

winner. The highest money total is 

found in line 200. If greater than 

$1000, then winner is notified; 

otherwise game continues. Option 

of playing new game in lines 240 

and 250. 

200 HH=M(1):HN=1:F0R J=2 TU N;ir niu)> 

HH THEN HH=!1(J);HN=J!NEXT J!GOTO 210 

202 NEXT i 

210 IF HMdOOO THEN RETURN 

220 K=0!FOR J=l TO N:IF M(J)=HM THEN K 

=K+1 

222 NEXT J 

230 IF K>1 THEN PRINT "Since there's a 

tie, keep going":? !RETURN 
240 ? !? N$(HNtlO-9,HNI10);" wins this 

game with ":? HM;" dollars!" 
242 FOR T=l TO 100:SOUND 0,T,10,10!F0R 

TI=1 TO 5!NEXT Tl!S0UND 0,255-T,10,10 
!FOR TI=1 TO 5:NEXT ThNEXT T 
244 SOUND 0,0,0,0:SOUND 1,0,0,0 
248 ? i? "Would you like to play again 

?"; 

250 BET »2,B:IF CHRt(B)="r' THtH RUN 

252 END 

Lottery subroutine. Selects two-digit 

lottery ticket that is different from 

all other lottery tickets issued. 

Displays results in line 280 and 

returns. 

260 T$=" - "!T$(1,1)=CHR$(49+INT(RND(0 
) 15) ) ! T1$=CHR* (49+INT (RND (0) «6) ) : IF Tl 
$<=T$ THEN 260 
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262 T$l3,3)xTl»!F0R 1=1 TD NilF L(I)=0 
THEN 2B0 
270 FOR J»l TO LID'.IF T$=L»(imJt3-l 
l,II9+JI3-9) THEN 260 
272 NEXT J 

2B0 N£n I;PRINT "Vou receive ticket n 
uaber ";Tfi RETURN 

Game selector. Prints border using 
A1$ and A2$. Reads names of 
games from DATA statements In 
lines 390 through 410, and puts on 
screen. Lines 320 through 350 wait 
for players to touch any key. Lines 
360 through 380 settle on one game, 
set the game number GN, and 
return. 

290 RESTORE iSRAPHICS Oi PRINT A2t;:F0R 
J=l TQ 1B:PRINT AltjiNEXT JiPRINT A2$ 

I 

300 FOR X=l TO 18:READ A«:P0SITI0N 4,X 
:? A«iREAO A$iPOSITI0N 23,X:? A(:NEXT 
X 

310 X=liXl=2!P0KE 752,liP0KE 7M,255:P 
OSITION 2,22;? "Touch any key, '•!N$(IP 
»10-9,IPI10)i 

320 Y=X:Yl=Xl!POSITI0N XI, Xj? CHR$(ltO 
)|:X=INT(RND(0)n8)+liXl=INT(RND(0)»2) 
tI9+2 

322 FDR S=Xt2+Xl/21+50 TO X»2+Xl/21+42 
STEP -4:S0UND 0,S,10,10:NEXT SiSDUND 
0,0,0,0 

330 IF IP=N AND RND (0X0. 03334 THEN 36 


340 IF IPON THEN B=PEEK(764):IF B025 
5 THEN 360 
350 POSITION Y1,Y:? " "isSOTO 320 

360 POKE 764,255!JJ=25:F0R 1=1 TO 6+IN 
T(RND(0)t4):F0R J=l TO JJ;NEXT J:JJ=JJ 
+25SP0SITIDN Yl,Yi? " "iiY=X!Yl=Xl 

361 SOUND 0,X»2+X1/21+30,10,10!S0UND 
,X»2+X1/21+40,10,10;S0UND 0,0,0,0 

362 POSITION XI, X:? CHR$(160)i!lF Xl=2 
THEN Xl=21i60T0 370 

364 X1=2:X=X+1;IF X=19 THEN X=l 

370 m^ I 

3B0 FOR TI=1 TO ISOiNEXT TI:SN=X>2nNT 
(Xl/13)-2iP0SITI0N Y1,Y!? " "pFOR 1=1 
TO SiPOSITION Y1,Y!? CHR$(160)) 

381 FDR S=10 TO 120 STEP lOi SOUND 0,S, 
10,10:NEXT SsFQR S=110 TO STEP -10:S 
OUND 0,S,10,10!NEXT S 

382 FOR TI=1 TO 30:NEXT TI:PDSITION Yl 
,Y!? • "i;FOR TI=1 TO 30:NEXT TliNEXT 
liPOKE 752,0;RETURN 

390 DATA POKER PARTY, F R T U N E l,S 
UEEPSTAKES!,LDVE A NEI6HB0R,EZ CONE EZ 

60,MIN A FEW 
392 DATA SHEEPSTAKES!, UNLUCKY SEVEN, LO 
SE A FEH 
400 DATA EVEN STEVEN, SWEEPSTAKES I, DAIL 



Y DOUBLE,POT LUCK,HI6H ROLLER,POKER PA 

RTY,LOTTERY,F R T U N E ! 

402 DATA JACKPOT,$100 BONUS,OFF TO THE 

RACES, SWEEPSTAKES!, LOSE THIS TURN 
410 DATA LOTTERY,F R T U N E l,TAX T 
IHE,BONANZA,LOSE THIS TURN,F R T U N 

E !,S(IEEPSTAKES!,HI6H ROLLER 
412 DATA JACKPOT,LOTTERY,HORSE RACE,NA 
D HONEy,F R T U N E !, LOTTERY 

Graphics Initialization. Set up 
graphics variable D$ which Is 
pictures of the six dice. 



Tdlll ,dll 

" dinu 

T dlllT TT TdlllT TdlUT T" 



420 D$='; dmj;_diii 

IT Tdlll T dlll T T T dlll 

Mdlll ^ _ _ 

430 REN Above; T=<CTRL> T 
432 REH d=<ESC> <CTRL> = 
434 REM 1=<ESC> <CTRL> + 
450 RETURN 

Sweepstakes routine. Lines 460 
through 480 set up graphics display. 
Line 490 offers optional 
instructions, which are in lines 510 
through 530. Lines 540 through 600 
record each player's sweepstakes 
bet in S$(J,J). Line 620 roils six dice, 
displays them, and the records them 
in D(X). The highest number roiled Is 
stored In HN. Line 630 checks for 
pairs, 640-650 for a straight, 660 for 
a split, and 670 for single spots. 

460 GRAPHICS 0:? " SWEEPS 
TAKES!":?:?" QRRRRR6RRRRRWRR 
RRRHRRRRRE" 

461 REH Above: Q=<CTRL> Q, R=<CTRL> R 

462 REM W=<CTRL> W, E=<CTRL> E 

464 ? " A C E"; 

? " I I I II 

466 REN Above; !=<SHIFT> = 

470 ?;?:?;?" ! 

! I";? "P=Pair B 

D F" 

471 REM Above; !=<SHIFT> = 

472 ? "B=StraightZRRRRRIRRRRRXRRRRRJRR 
RRRC" 

473 REM Above: Z=<CTRL> Z, R=<CTRL> R 

474 REM X=<CTRL> X, C=<CTRL> C 

480 FOR X=l TO 6:P0SITI0N X<6-2,5:? D» 

(X>17-16,X»17);;NEXT X 

490 POSITION 1,12;? "Do you need Sweep 

stakes instructions ?"i;POKE 764,255 

500 GET 12,8 

510 IF CHR$(B)="N" THEN 540 

512 POSITION 1,12:? "In Sweepstakes ev 

eryone antes $10. Theneach player bets 

on the outcoAe of the" 
514 ? "roll of 6 dice. There are thre 
e types of bets.";GOSUB 1470 



520 POSITION 1,12;? "One way is to bet 
on where the highest nuaber rolled wi 

11 appear. If the high'; 

522 ? "number appears in A,B,C,D,E or 

F you win $300. Letters 6,H,I and J 
cover "; 

524 ? "two spots. If you bet G, you c 

over spots A and C and can win tl50 

II 
. 

530 GOSUB 1470:P0SITI0N 1,12:? "Anothe 

r bet is <<P>> for pairs. If twodice 

next to one another aatch, you win"; 

532 ? "*200. The third bet is «S» f 

or a straight. If 3 consecutive di 

ce appear"; 

535 ? "in nuoerical order, you win $45 

0. ";0$:GOSUB 1470 

540 FOR 1=12 TO 18:P0SITI0N 1,1:? 0$;: 

NEXT I:P0SITION 30,12;? "A-F $300":POS 

ITION 30,13:? "6-J $150" 

542 POSITION 32,14:? "P $200";POSITION 

32,15:? "S $450":F0R 1=1 TO N:H(I)=M( 

I)-10:S$(I,I)=" ":NEXT I 

544 POSITION 10,23:? "Place your bets: 

•;:X=12 

550 FOR J=IP TO N:POSITION 1,X:? N$(J< 

10-9, JtlO);" - ";:X=X+1 

560 IF J=N THEN B$=CHR$(65+RND(0)I11): 

IF B$="K" THEN B$="P" 

562 IF J=N THEN 580 

570 GET »2,B;B$=CHR$(B):IF (B$>"3" AND 

B$<"K") OR B$="P" OR B$="S" THEN 580 

572 GOTO 570 

580 FOR K=l TO N:IF B$=S$(K,K) THEN 56 



582 NEXT K;PRINT B$;:S$(J,J)=B$:NEXT J 

590 IF IP=1 THEN HN=1:60T0 620 

592 FOR J=l TO IP-1:P0SITI0N 1,X:? N$( 

JI10-9,J»10);" - ";:X=X+1 

600 GET #2,B:B$=CHR$(B):IF (B$>"3" AND 

B$<"K") OR B$="P" OR B$="S" THEN 610 

602 GOTO 600 

610 FOR K=l TO N:IF B$=S$(K,K) THEN 60 



612 NEXT K:PRINT B$;:S$(J,J)=B$:NEXT J 

:HN=1 

620 GOSUB 1470:P0SITI0N 1,5:? 0$(1,37) 

;? 0$(1,37):? 0$(1,37):F0R X=l TO 6:F0 

R L=l TO 5:D(X)=INT(RND(0)*6+1) 

622 POSITION Xt6-2,5:? D$(D(X)tl7-16,D 

(X)«17);:NEXT L:IF D(X)>HN THEN HN=D(X 

) 

624 NEXT X 

628 FOR 1=12 TO 15:P0SITI0N 30,1:? " 

";:NEXT I 

630 FOR J=l TO N:X=12+(J-IP1-.1F K12 T 
HEN X=X+N 

631 POSITION 30, X:? " ";:POSITI 
ON 14,X:IF S$(J,J)<>"P" THEN 640 
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i32 FOR K=l TO SilF D(K)=D(K+1) THEN ? 
"$200 ior a pair":l1(J)=l1(J)+200:K=5:6 
OTO 690 

634 NEXT Ki? "Sorry, no pair5!"!G0T0 6 
90 

640 IF S$(J,J)<>"S" THEN 660 
642 FOR K=l TO 4;IF D(K)=D(Ktl)-l AND 
D(K)=D(K+2)-2 THEN ? "$450 for the 5tr 
aight"!M(J)=M(J)+450!60TO 690 
644 NEXT K 

650 ? "No 5traight!":60TO 690 
660 IF (S»(J.J)="B" AND (D(1)=HN OR D( 
3)=HN)) OR (S$(J,J)="H" AND (D(3)=HN 
R D!5)=HN)) THEN 668 
662 IF (S$(J,J)="I" AND (D(2)=HN OR D( 
4)=HN)) OR 1S$(J,J)="J" AND (D(4)=HN 
R D(6)=HN)) THEN 668 
664 GOTO 670 

668 ? "tl50 for bet on ")S»(J,J)!M(J)= 
M(J)+150!GOTO 690 

670 IF S$(J,J)<="3" OR S$(J,J)>="S" TH 
EN 680 

672 K=ASC(S$(J,J))-64:IF D(K)=HN THEN 
PRINT "»300 on spot ")S$(J,J):I1(J)=H(J 
) +300". GOTO 690 

674 PRINT "You lose with spot ";S$(J,J 
))!GOT0 690 

680 ? "Maybe next tine!" 
690 NEXT J 
700 GOSUB 1470: RETURN 

Lottery subroutine. Instructions and 
lottery tickets shown in line 710. 
Array D(J) set equal to zero; six dice 
rolled and displayed. If a number J 
is rolled, D(J) set to 1. Winning 
tickets evaluated in line 730, lottery 
ticket count L(l) set to zero and 
return. 



710 GRAPHICS 0:? " 



L Q T T E 



R Y":? !? "If both the numbers on you 
r ticket are" 

712 ? "among the six numbers rolled, y 
ou will receive *50 for that ticket,"! 
? "Here we go..." 

714 FOR J=l TO N:POSITI0N 1,10+J!? N»( 
J»10-9,J»10);" ";L$(J»9-8,Jt9-6>i" 
"iL»lJt9-5,J<9-3)|" "iL»Ut9-2,J« 
9) 

716 NEXT J!G0SUB 1470 
720 FOR J=l TO 6:D(J)=0!NEXT J-.FQR J=l 

TO 6!K=INT(RND(0)t6)+l!P0SITI0N J»6-2 
,7!? D$(K»17-16,K»17):D(K)=1 
722 NEXT i 

730 FOR J=l TO NiIF L(J)=0 THEN 738 

731 FOR K=l TO KJlsFOR L=l TO 150:NEX 
T L 

732 IF D(VAL(L»(J»9+K»3-11,JI9+K»3-11) 
))=1 AND D(VAL(L»(J«9+K«3-9,Jt9+KI3-9) 
))=1 THEN 735 

734 POSITION 10+K»6,10+J!? "— "jiSOUN 
D 0,220, U),10!F0R TI=1 TO 100!NEXT Tl! 
GOTO 737 

735 POSITION 10+KI6,10+J!? "»50"i!l1(J) 
=I1(J)+50:F0R S=30 TO 10 STEP -2!S0UND 
0,S,10,10;FOR TI=1 TO 2:NEXT TI 

736 SOUND 0,255-S,10,10!F0R TI=1 TO 2: 
NEXT TliNEXT S 

737 SOUND 0,0,0,0!NEXT K!L(J)=0 

738 NEXT JsFOR J=l TO Nt9!L»(J,J)=" "! 
NEXT J 

740 BOSUB 1470:F0R J=l TO N»9!L«(J,J)= 
" ":NEXT j!L(l)=0!L(2)»0!L(3)=0!RETURN 



Horse race routine. Picture of a 
horse H$ in line 750. Heading and 
instructions In lines 750 through 



760. Horizontal position in array 
D(K). Each of six horses is randomly 
advanced by incrementing print 
position. When D(K) approaches end 
of screen in line 780, winner 
announced in lines 790 and 800. 

750 GRAPHICS O-.POKE 752,1:H»=" 

^J'iFGR J=l TO 6!D(J)=10!P0SITIQ 
N 2,jr3+l!? J}" "iHJjiNEXTJ 

751 REH 1st string; <SHIFT>' - ' <CT 
RL>U <ESC><SHIFT>= 5<ESC><SHIFT>+ <CTR 
L>' U ' 

752 FOR J=l TO N!POSITION l,JI3+l!PRIN 
T N$(JH0-9,J»10)iiM(J)=H(J)-20;NEXT J 
iPOSITION 6,0:? "HORSE RACES 

754 FOR Y=l TO 6!PQSITI0N 38,Y»3+l!? " 

."iiNEXT Y 

760 POSITION 1,21:? "Everyone has bet 

$20, the winner will receive $100. 'iG 

OSUB 1470 

770 SOUND 0,250,8, 10!SQUND 0,240,8,10: 

SOUND 0,255,8, 10:S0UND 0,0,0,0 

780 K=INT(RND(0)l6)+l:D(K)=D(K)+l!P0SI 

TION D(K),K»3+li? H$j:IF D(K)<33 THEN 

770 

790 POSITION l,2l!? 0$(1,38);!? 0$(1,3 

8)j!? D$(l,38)i!P0SITI0N l,2l!lF K>N T 

HEN 794 

792 ? N$(KtlO-9,KtlO)'," "jslHKisMlKUl 

00: GOTO 800 

794 SOUND 0,0,0,0:? "Horse nuiber "jK) 

• «. 

BOO ? "wins this rdce!":60SUB 1470!P0K 
E 752,0: RETURN 
Fortune teller routine. Fortune 
teller's message chosen randomly In 
lines 810 through 880. Message 
displayed In lines 900 through 920. 
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810 l1$="!6RftPHICS OiPOSITION 7,4:? "T 

HE FORTUNE TELLER SftYS ;°iK'l!l1=10tINT( 

RND(0)»5+l)+50 

820 IF RND(0)<0.2 THEN l1$="Hold a Swee 

p5take5,":K=2:B0T0 890 

830 IF RND(0)<0.2 THEN l1$="Hold a Lott 

ery."!K=3!S0T0 890 

840 IF RND(0)<0.5 THEN !1$="Conect fro 

IB "'.K^-hSOTO 850 

842 M$="Pay to " 

850 J=INT(RND(0)»(N+l)+l)!lF JOIP THE 

N 860 

852 H$(LEN(M$)+l)="everyone":M(IP)=MiI 

P)-K<NtM:FOR J=l TO N:M(J)=l1(J)+K<ll!NE 

XT JiBOTO 880 

8iO IF ^N+1 THEN t1»(LEN(M»)+l)="the b 

ank"!M(IP)=M(IP)-KtM!SOTO 880 

870 I1$(LEN(I1»)+1)=N$(J»10-9,J»10)!I1(IP 

)=H(IP)-K»M:M(J)=M(J)+K»M 

880 M»(LEN(M$)+-1)=" "!M$(LEN(M$)+1)=ST 

R$(M):l1»lLEN(Mt)+l)=" dollars." 

890 QQ=0 

900 FOR TI=LEN(rii) TO 1 STEP -liM$(TI+ 
44,TI+44)=«$(TI,TI)!NEn Tl!Mt(l,32)=Q 
$(l,32)!t1$(33,42)=N$(IP»10-9,IPtl0) 

901 I1$(43,44) = ", "!M*(LEN(M$)+1)=0*(1, 
32) 

902 FOR J=l TO LEN(M$) -31: SOUND 0,200, 
SjlOiPOSITION 5,6:? M$(J,J+30);:S0UND 
0,0,0,0:FOR TI=1 TO 5:NEn ThNEH J;M 

910 GOSUB 1470 
930 IF K=2 IREN 460 
932 IF K=3 THEN 710 
934 RETURN 

High roller game. Instructions in line 
940; all roll two dice in line 950. 
High roll determined in line 960 and 
970. Single winner announced in line 
980, tie roll causes reroll in lines 990 
through 1010. 

940 6RAPHICS 0:? "H I S H R L L E 
R — Everyone antes $20 and rolls 

two dice. The" 

942 ? "highest roll takes the $100 pri 
ze. To roll dice, touch any key on yo 
ur turn.":60SUB 1470 
950 FOR J=l TO N:I1(J)=M(J)-20:P0SITI0N 

1,2+Jt3!? N*(Jtl0-9,Jll0)!)(l=12+(J-IN 
T(J/2)I2)»4:X=2+J«3;S0SUB 1450;D(J)=K 
952 Xl=n+8;GDSUB 1450;D(J)=D(J)+K;POS 
ITION 28,X:? "Total is ";D(J)j:NEXT J 
960 HN=D(1):HI1=1:F0R J=2 TO N:IF D(J)> 
HN THEN HN=D(J):MH=J 
962 NEXT J 

970 K=0:FOR J=l TO N;IF D(J)=HN THEN K 
=K+1 

972 NEXT J 
980 IF K=l THEN POSITION 1,20:? N«(HI1« 



10-9,HM«10)i" wins the pot!";M(HH)=l1(H 
M)+100iP0KE 764,255:60SUB 1470:RETURN 
990 POSITION 1,20:? "We've got a tie! 
Those high rollers will roll again! 
"I POKE 764,255:B0SUB 1470 
992 POSITION I,5:F0R J=l TO 18:? D$i:N 
EXT J 

1000 FOR J=l TO N:X1=14:X=2+3»J:IF D(J 
XHN THEN D(J)=0:NEXT J:GOTO 960 
1002 POSITION 1,X:? N$(JtlO-9,J»10):Xl 
=12+(J-INT(J/2)l2)t4:S0SUB 1450:D(J)=K 
:X1=X1+8:S0SUB 1450 

1004 D(J)=D(J)+K:POSITION 28, X:? "Tota 
1 is ")D(J)i:X=X+3:NEXT J 
1010 SOTO 960 

Poker party subroutine. Instructions 
In line 1020. Three dice rolled in 
lines 1030 for all players. Check for 
three of a kind in line 1040, pair in 
line 1050, and straight in line 1070. 
Winner announced in line 1120. If a 
tie, start routine again. 

1020 BRftPHICS 0:? "P K E R PART 
y — Each player pays $20 and rolls 
three dice. The" 

1022 ? "best poker hand":? "(Three oi 
a Kind > Straight > Pair) wins $100 
. Touch any key to roll dice."; 
1024 SOSUB 1470:XX=6:FQR 1=1 TO N:M(I) 
=M(I)-20:NEXT I:HM=0 
1030 FOR 1=1 TO N:POSITION 1,XX:? N$(I 
110-9, 1»10):F0R t1=l TO 3;J=I;X1=9+M»6: 
X=XX:POKE 764,255:60SUB 1450:D(M)=K 
1032 NEXT I1:P(I)=0 

1040 FOR TI=1 TO 100:NEXT TI:FOR TI=X 
TO XX+2:P0SITI0N 11,TI:PRINT 0$(l,2B)i 
:NEXT ThPOSITION 13, XX 

1041 ? Dd);" "iD(2)i" "iD(3)i" "; 

1042 IF D(1)=D(2) AND D(1)=D(3) THEN ? 
"Three of a kind!"i:P(I)=30+D(l):G0TO 
1100 

1050 IF D(1)=D(2) THEN P(I)=10+D(1) 

1052 IF D(1)=D(3) THEN P(I)=10+D(1) 

1054 IF D(2)=D(3) THEN P(I)=10+D(2) 

1060 IF P(I)>0 THEN PRINT "A pair!";;6 

OTO 1100 

1070 FOR J=l TO 3: IF (D(1)=D(2)+1 AND 

D(l)=D(3)+2) OR (D(1)=D(2)-1 AND D(l)= 

D(3)-2) THEN P(I)=20:G0T0 1080 

1072 HN=D(1):D(1)=D(2):D(2)=D(3):D(3)= 

HN:NEXT J 

1080 HN=D(1);FQR J=2 TO 3:IF D(J)>HN T 

HEN HN=D(J) 

1082 NEXT J 

1090 P(I)=P(I)+HN:IF P(I)>20 THEN PRIN 

T "A straight! "pSOTO 1100 

1092 PRINT "Highest roll is a "jPd); 

1100 XX=XX+2:IF P(I)>HH THEN HM=P(I) 

1102 NEXT I 

1110 K=0!FOR 1=1 TO N:IF P(I)=HH THEN 



K=K+1:J=I 

1112 NEXT I 

1120 IF K=l THEN POSITION 1,20:? N$(Jt 

10-9,J»10)i" wins the pot of $100":H(J 

)=M(J)+100:B0SUB 1470:RETURN 

1122 POSITION 1,20:? "We have a tie .. 

. so let's all play another hand!": 

GOSUB 1470:G0T0 1020 

Love thy neighbor routine. Set 
message in line 1150, adjust money 
in line 1160, and jump to display 
routine in line 890. 

1130 GRAPHICS 0:K=0:11=INT(RND(0)»5+l)t 

10+50 

1140 J=INT(RND(0)«N+1):IF J=IP THEN 11 

40 

1150 M$="Show that you are a good neig 

hbor and give ":M$(LEN(M$)+1)=N$(J»10- 

9,J»10):I1$(LEN(I1$)+1)=" " 

1152 M$(LEN(I1I)+1)=STR$(H):I1$(LEN((1$) + 

1)=" dollars." 

1160 M(IP)=M(IP)-I1:M(J)=M(J)+M:60T0 89 



Easy come easy go routine. Give 
Instructions and roll two dice in line 
1170. Adjust money and return. 

1170 GRAPHICS 0:? "E A 8 Y CONE 
EASY 6 - The bank will pay 
you 10 times the roll"; 
1172 ? "of 2 dice. Touch any key to r 
oil dice,"|N$(IPtl0-9,IPtl0):B0SUB 147 
0:J=IP:X1=15:X=6:60SUB 1450:M=K 
1174 X1=X1+6:GQSUB 1450;H=(I1+K)»10:I1(I 
P)=M(IP)+H 

1176 POSITION 7,10:? "You win ";«;" do 
liars." 

1180 GOSUB 1470:RETURN 
Short message routines. Simple 
procedures to handle following 
special routines: Win a Few (1190), 
Unlucky Seven (1200), Lose a Few 
(1230), Even Steven (1240), Pot Luck 
(1300), Jackpot (1310), $100 Bonus 
(1320), Lose a Turn (1330), Tax Time 
(1340), Bonanza (1350), and Mad 
Money (1360). 

1190 GRAPHICS 0:? "W I N A FEW 
— The bank will payyou ten tines the 
roll of one die." 

1192 ? "Touch any key to roll die, "|N 
$(IP«10-9,IPI10);G0SUB 1470:J=IP:Xl=ia 
:X=6:G0SUB 1450;H=KtlO:l1iIP)=H(IP)+« 
1194 GOTO 1176 

1200 GRAPHICS 0:? "U N L U C K Y S E 
V E N " Roll two dice. If the tota 
I is seven you lose" 
1202 ? "$100. For any other total, yo 
u win $100. Touch any key to roll 
dice,":? N$(IP»10-9,IP»10);BQSUB 1470 
1204 J=IP;X1=15:X=6:G0SUB 1450;H=K:X1= 
X1+6:60SUB 1450!l1=H+K 
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mo POSITION 7, 10: IF 11=7 THEN ? "You 

lose 100 dollarsl":M(IP)=H(IP)-100!60T 

1220 

1212 ? "You win 100 doIlar5!"!M(IP)=l1( 

IP) +10.0 

1220 60SUB 1470:RETURN 

1230 SRftPHICS Oi? "L S E fl FEW 

— You must pay the bank ten tiaes 

the roll oi one die."; 
1232 ? "Touch any key to roll die,":? 
N»(1PI10-9,IP»10)!60SUB 1470:J=IP:X1=1 
Sil(=6iG0SUB U50:t1=KtlO 
123A H(IP)=«(IP)-M:POSITION 7,10;? "Yo 
u lose "jHi" dollars.":BOSUB 1470:RETU 
RN 
1240 GRAPHICS 0:? "E V E N STEVE 

N — You iay bet up to $90 and roll 
t«o dice. H the" 

1242 ? "total is even, you collect twi 
ce your bet. Touch any key to roll d 
ice." 

1244 ? N$(IP»10-9,IPtl0):? "How much w 
ill you bet ? "pIF IP=N THEN B=54+INT 
(RND(0)»4)!GOTO 1260 
1250 BET I2,B:IF B<49 OR B>57 THEN 125 


1260 M=(B-4B)tl0:? Mj" dollars"i60SUB 
1470 

1270 X1=15!X=7:60SUB 1450!P=K;l(l=Xl+6: 
BOSUB 1450!P=P+K 

1280 POSITION 7,11;IF INT(P/2)»2=P THE 
N ? "You win "j2«l1i" dollars. "iHdPl'M 
(IP)+2«H:B0T0 1290 

1282 ? "You lose "iHj" dollars.'iMdP) 
=N(IP)-H 

1290 60SUB 1470:RETURN 
1300 SRftPHICS 0:H=10tINT(RND(0)»5+l)+l 
0:M(IP)=H(IP)-l1:l1»=">lhY don't you swee 



ten the pot by giving the bank " 

1302 M$(LEN(l1$)+l)=STR$(M)!M*(LEN(Mt) + 

1)=" dollars. ":K=0:60T0 890 

1310 GRAPHICS 0!l1=10»INT(RND(0)»5+l)+5 

0!l1»="You hit the Jackpot I Collect "i 

H$(LENtrt»Kl)=STR$(l1) 

1312 M$(LEN(M»)+1)=" dollars. ":K=0:M(I 

P)=l1lIP)+tl!S0T0 890 

1320 GRAPHICS 0:l1(IP)=M(IP)+100il1$="Pl 

ease accept this $100 bDnus!":K=0!GOTO 

890 
1330 BRAPHICS 0!l1$="You just lost this 

turnl":K=0!S0T0 890 
1340 BRAPHICS 0!M$="Pay $100 tax to th 
e bank!":M(IP)=M(IP)-100!K=0!GOTO 890 
1350 BRAPHICS 0il1=INT(RND(0)»5+l)<10!M 
(IP)=M(IP)+HtN:FOR J=l TO N:M(J)=H(J)- 
HsNEH J 

1352 n$="What a Bonanza! Everyone pay 
s you ":H$(LEN(H$)+l)=STRt(M)!l1$(LEN(H 
$)+l)=" dollars. "iK=0:60TO 890 
1360 BRAPHICS 0:M=INT(RND(0)t5+l)«10!M 
(IP)=I1(IP)-«»N:F0R J=l TO N:«(J)=N(J) + 
HsNEKT J 

1362 n$="This ought to make you aad. 
Bive everybody ":H$(LEN(M»)+1)=STR$(H) 
in$lLEN(l1$)+l)=" dolIars.":K=0:60T0 89 


Game instructions. Called optionally 
from initialization section. 

1370 BRAPHICS 0:? "This is the gane of 
BAHBLER!":? :? "You and the Atari are 
in a contest to" 

1372 ? 'sea who will build his $100 ba 

nkroll into $1000 first. Honey is n 

ade and" 

1374 ? 'lost through a series of ganes 



of chance — frosi horse racing a 

nd dice" 

1380 ? "games to latteries and sweepst 
akes! If you should lose all your m 
oney, your" 

1382 ? "lOU will be accepted (as long 
as you pay it back with interest)."; 
? :? " GOOD LUCKI ";K=0!GOTO 

910 



Utility subroutines. Lines 1450 
through 1460 wait for input before 
stopping on one of the six dice 
pictures at screen position X1,X. 
The computer's dice choice is made 
in line 1450. Lines 1470 and 1480 
print a message and wait for 
keyboard response. 

1450 POKE 764,255!S=PEEK(752):P0KE 752 

,1 

1452 IF JON THEN 1460 

1454 FOR L=l TO RND(0)t50+l!K=INT(RMD( 

0X6+1) iPOSITION XI, K!? D$(K»17-16,K»1 

7);!P0KE 53279,RND(0)»4:NEXT LsBOTO 14 

62 

1460 B=PEEK(764):K=INT(RND(0)»6+1)!P0S 

ITION XI, X:? D$(K»17-16,K»17);:P0KE 53 

279,RND(0)«4:1F 8=255 THEN 1460 

1462 POKE 764,255:P0KE 752,S:RETURN 

1469 STOP 

1470 POKE 764,255:P0SITI0N 1,23:? " 
Touch any key to continue"; 

1475 IF RNDIOXO.ll THEN S=RND(0)«70+3 
0:FOR TI=S TO S-8 STEP -4:S0UND 0,TI,1 
0,10;NEXT ThSOUND 0,0,0,0 
1480 IF PEEK(764)=255 THEN 1475 
1482 POKE 764,255:P0SITI0N 6,23:? " 
";;RETURN 
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by Phelps Gates 



Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power of 
this language is In Its strong mathematical operations, especially with regard to matrices and vectors. Programs requiring 
matrix multiplication or other matrix problem solving that would require hours of programming time in BASIC are solved 
quickly and with minimal effort in APL. 

To aid In learning APL, lessons are Included on the disk. Starting from the basics, you are brought step by step through 
the various programming techniques Involved with APL. These lessons act as a tutor which will have you "talking APL" in 
no time. Also available Is the book, "APL: An interactive Approach," which reinforces many of the examples given In the 
lessons and provides additional insight Into APL programming. 

FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOA0 workspace on disk; )COPY other workspaces Into cur- 
rent ones; Return to DOS for directory or commands without losing your workspace; Send output to ilneprinter; Five 
workspaces of lessons Included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; Easy 
editing within FUNCTION lines; Latent expressions(FUNCTION can "come up running" when loaded); Tracing of function 
execution; Real-time clock; User-control of random link; Workspace Is 25587 bytes (in 48K machine); Arrays may have up to 
63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and assign, branch, catenate, celling, chr$/asc, circular, 
combinational, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, floor, for- 
mat, grade down, grade up, greater, greater/equal, index generator, Indexing, index of, inter product, label, less, less/equal, 
logarithm, maximum, member, minimum, multiple, nand, negate, nor, not, not equal, or, outer product, peek, poke, quad, 
quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, system, subtract, 
take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system (48K recommended) includes APL-60, Five workshapes of lessons, in- 
struction manual. $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 

Transpositions, format, and: Inner product not Implemented. Reduced domain for some functions, 6 digit accuracy. 
I $14.95 on cassette 

LIMITATIONS 

Due to the absence of the special APL character set on the TRS-eO , APL-80 uses shifted letters to represent the various APL characters. In addition to the keyboard 
limitations, lamination, domino, and matrls Inverse are not Implemented but can be derived with user-defined functions. Multiple specifications must be split Into 
two statements unless the left-hand assignment Is to a quad. This also applies to Implied multiple specifications. Reduction and reshape (p) are not permitted for 
empty arguments; the argument of add/drop may not be scalar; empty Indices are not permitted. A quad (q) can't be typed In response to a quad (nor can the name 
of a function which Itself gets Input from a quad). Quote-quad (m) Is ps.'mltted. No more than 32 user functions can be defined In a single workspace and a function 
may not contain mors than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line. 
In the tape version, arrays are limited to five (5) dimensions. 
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* TRS-BO LEVEL I I/DISK BASIC » 

$ 'GAMBLER' $ ' 

$ AUTHOR: RANDY HAWKINS t 
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$$$$$t$$$$t$t$$*»H$$t$»t$t$$ 
Program initialization. Line 20 creates A1$ and A2$, 
graphics strings used in ttie borders of tlie game 
selection screen. Subroutine 420 does further 
initialization of graphics. Lines 30 and 40 set the 
number of players, N. Line 50 determines players' 
names and Initializes money, M(l), numbers of lOUs, 
10(1), and lottery tickets, L$. If desired, instructions are 
displayed after prompting in line 50. 

10 CLS:PRINTCHR$(23)'Wekonie to «6flhBLER« 

(with sound effects)":PRINT 

20 CLEAR1000:DEFINTft-Z!Al$=CHR»1191)+" "+CHRJ!149!+STRINfi$(17,3 

2):Al$=Al$tAl$+Al$+CHRJ(!91l:ft2$=CHR$(lB8)+STRING$(2,140)+CHR»(l 

5M+STRING»(17,140)iA2$=ft2$+A2J+A2$+CHRMia8):G0SUB42O;G0SUB1390 

30 PRlNT"How many players (up to 4) ? "; 

40 B$=lNKEYt;IFBJ=""THEN40ELSEN=VAL(B»i!lFN<10RN>4THEN40ELSEPRIN 

TN 

50 FORI=lTON!PRINT"Who is player r';Ii:INPUTN$(I):M(I)=100:IQ(I) 

=0!Lt(I,0)="":NEXTI:Nt(I)="TRS-BO":M(I)=IOO:IO(I)=0!N=NthPRINT" 

Do you need to see instructions?" 

60 B»=lNKEY»!lFB«=""THEN60ELSEIF(ftSC!Bt)AND95)=S9THENG0SUB1370 

Game loop. Loop, using variable IP, cycles through 
each player's turn. Present money totals are shown in 
line 80. Problems dealing with players who have gone 
brol<e are handled in lines 90 through 120. Lottery 
ticltets are bought in lines 130 through 150. Game 
number is selected in subroutine 290, and line 180 
transfers control to the appropriate routine. 

70 FQRIPMTON 

80 CLS!PR!NTCHR$(23);"Present Bankrolls I0U5";STRlNGt( 

32,451 !:FORJ=1TON;PRINTU5IN6N«(J) + " "+STRIN6$(15-LEN(N$(J) ) ,46) + 
"$$tltir';M{J) ; :PRINT3122+J*64, IO(J> ; :NEXTJ!60SUB200:PRINT" 
It is ";N$(lP);"'s turn.": IFM(IP) >=OTHEN100 
90 I0(lPi = I0(lP)+l!l1(IP)=M(IP)+100!lFI1iiP)s0THEN90ELSEPRlNT"You 
must borrow noney to cont- 
inue to play and pay it back to 

the bank ... plus interest "■!F0RTl=lT02000!NEXTTIi60T0B0 
100 IFIO(IP)>OANDt1(IP)>=110THENPB=INT(M(IP)/110)ELSE130 
no IFPB;IO(IP)THENPB=IO(IP) 

120 ID(IP)=I0(IP)-PBiM(IP)=M(IP)-110»PB:PRINT"You can pay back"; 
PBi"IOU note 

at 110 Dollars each.":FORTI=lT02000:NEnTl!GOTQ30 
130 IFL$(IP,0)="XXr'THEN!60ELSEPRINT"WDuld you like to buy a lot 
tery 

ticket for $10 ? "; 

140 IFIP=NTHENPRINT"Y":G0SUB260:L$(IP,0)=Lt(IP,0)+"X"!L»(IP,LEN( 
L<(IP,0)))=T»:l1(lP)=l1{IP)-10:FDRTI=lT01O00:NEnTIi60T0B0 
150 B»=1NKEY$:IFB»=""THEN150ELSEB$=CHR»(ASC(B$)AND95):IFB$="N"TH 
ENPRINT"N':GOT0160ELSEIFB»<>"Y"THEN150ELSEPRINT"Y"!60SUB260:L»(I 
P,0)=L»(lP,0)+"r'!L$(IP,LEN(L$(IP,0)))=T»!M(lP)=l1(IP)-10:FORTI=l 
TOlOOOsNEUThGOTGSO 

160 PRINTS962, "Touch any key to continue"; 
170 B$=INKEY»!lFB$=""THEN170ELSEGOSUB290 

180 0NGNG0SUB1020, 810, 460, 1130, 1170, 1190, 460, 1200, 1230, 1240, 460, 
750,1300,940,1020,710,810,1310,1320,750,460,1330,710,810,1340,13 
50,1330,810,460,940,1310,710,750,1360,810,710 
190 NE)(T1P:G0T070 

Called in game loop to check for winner. The highest 
money total is found in line 200. If greater than $1000, 
then winner is notified; otherwise game continues. 
Option of playing new game in lines 240 and 250. 




200 HI1=M(l)!HN=l!F0RJ=2TQNiIFI1(J)>HMTHENHM=l1(J):HN=JiNEnJELSENE 

nj 

210 IFHIKIOOOTHENRETURN 

220 K=OiFORJ=lTDN!lFM(J)=HMTHENK=K+l:NEXTJELSENEnJ 

230 IFK>lTHENPRlNT"Since there's a tie, keep going";: RETURN 

240 PRINT:PRINT" ";Nt(HN)i" wins this game with 

"!Ht1;"dollars!":F0R!=0T090STEP2!Q=USR (11 141-1) ;NEni:PRlNTCHR$(2 

3):PRINT"Would you like to play again ''" 

250 BJ=lNKEY$;lFBi=""THEN250ELSEB$=CHRJ(ASC(BJ)AND95):lFB$="V"TH 

ENRUNELSEEND 

Lottery subroutine. Selects two-digit lottery ticket that 
is different from all other lottery tickets issued. 
Displays results in line 280 and returns. 

260 T»=CHR» (48+RND (5) > :T1»=CHR< (48+RND(6) ) ; IFT1*<>T$THEN260ELSET 

$=T$+"-"+Tl$iFORI=lTON:IFL»(I,0)=""THEN280 

270 FORJ=1TOLEN(LS(I,0)):IFT$=L*(I,J)THEN260ELSENEXTJ 

280 NE)(Tl;PRINT"You receive ticket number 

,?:0UT255.8:NEnj!RETURN 



;T$:FORJ=1T020;OUT255 



Game selector. Prints border using A1$ and A2$. 
Reads names of games from DATA statements in lines 
390 through 410, and puts on screen. Lines 320 
through 350 wait for players to touch any key. Lines 
360 through 380 settle on one game, set the game 
number GN, and return. 

290 RESTQRE:CLS:PRlNTA2*i:F0RJ=lTO12:PRINTAU;:NEXTJ:f0R!=lTa 

3.:PRlNTCHR*(143)STR!NGi(Z,140)CHR$(141)STRING$(17,140)i!NE)(TiPRI 

NTCHRt(143) 

300 F0RX=68T0772STEP64;READA»;PRlNT3K,ft$;;READA«:PRINTSX+21,ft*;: 

READfl»:PRINT8U42,Ati:NEn)( 

310 )(=65!B$=INKEY$:PRINTS970,Nt(IP>;", touch any key for your se 

lection"; 

320 Y=)(:PRINT3)(,STRIN6$(2,143);!l3=USR(5000+RND(12e)):)(=RND(12)»6 

4+RND(3)«21-20 

330 !F1P=NTHEN1FRND(30)=25THEN360ELSE350 

340 B»=INKEY$!lFB$<>""THEN360 



350 PR1NT8Y, 



:G0T0320 



360 JJ=100:KK=5160:FORI=lT05+RND(4)!Q=USR(KK)iKK=KK+20!FORJ=lTOJ 
J;NEnJ:JJ=JJ + 100!PRINT3Y," "; :Y=X:PRINT3)(,STRIN6*(2,143) ;iX=)(+ 
2l!lFP0S(0)>40THENX=X+l 
370 IFX>830THENX=65:NEXTIELSENEXTI 

3B0 Q=USR(KK)!F0RTI=lT0300iNEXTTI:GN=INT(Y/21)-2!PRINT3Y," ";;F 
ORI=1T05:Q=USR(0) :PRINT3Y,STRING$(2, 143) ; :F0RTI=lTQ99:NEXTTl!PRI 
NT3Y," ";!NEXTI:RETURN 

390 DftTflPoker Party, F R T U N E !, Sweepstakes I, Love thy Neighb 
or, Easy Cone Easy Go, Win a Few, Sweepstakes!, Unlucky Seven, Lose a 
Few 
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400 DATftEven Steven, Sweepstakes!, Daily Double, Pot Lucl:,High Roll 
er, Poker Party, Lottery, F R T U N E !, Jackpot, MOO Bonus, Of< to 
the Races, Sweepstakes!, Lose This Turn 

M DftTftLottery.F R T U N E !,Tax Time, Bonanza, Lose This Turn, 
FORTUNE !, Sweepstakes!, High Roller, Jackpot, Lottery, Horse R 
ace.Mad Money, F R T U N E '.Lottery 

Graphics initialization. Set up graphics variables D$(1) 
through D$(6) which are pictures of the six dice. 

420 R$=CHR$(26)+STR!N6M7,24)!D»(l)=STRINGt(3,191)+CHR$l!43)^STR 

INGJ(3,191)+Rt+STRING$(7,143):D$(2)=CHRJ(191)+CHR$(179)+STRING$( 

5,191)+Rt+STRINB$(5,143)+CHRt(140)+CHR«(143) 

430 D$(3)=CHR»(191)+CHR»(179)+CHR»(191)+CHR»(143)*-STRIN6$(3,191) 

tR$+STRING«(5,143)+CHR$(140)+CHR$ll43)!Dt(4)=CHR$(191)+CHRt(179) 

tSTRING$(3,191)+CHR$(179)tCHR$(191)+R$+CHR$(143)tCHR$(140)+STRIN 

6»{3,143)+CHR$(140)+CHR»(143) 

440 D»(5)=CHR»(191)+CHR$(179)+CHR»(191)+CHR$(143)+CHRt(191)+CHR» 

(179)+CHR«(191)+R$+CHRt(143)+CHRtll40)+STRIN6»(3,!431tCHR${140H 

CHR»(143)!0$(6)=CHR»(191)+CHR$(179)+CHR»(191)+CHR»(179)+CHRi(191 

>+CHR«(179)+CHR$U91)+R$+CHR$(l43)+CHRi(140)+CHR»(143) 

450 D$(4)=D»(6)+CHR»(140)+CHR$(143)+CHRt(140)+CHRt(!43)!RETURN 

Sweepstakes routine. Lines 460 through 480 set up 
graphics display. Line 490 offers optional instructions, 
which are in lines 51 through 530. Lines 540 through 
600 record each player's sweepstakes bet In S$(J). 
Line 620 rolls six dice, displays them, and records 
them In D(X). The highest number rolled Is stored In 
HN. Line 630 checks for pairs, 640-650 for a straight, 
660 for a split, and 670 for single spots. Results are 
displayed In line 690. 

460 CLS:PRINT319,"S III E E P S T A K E S !"!PRlNTJ70,CHR1i(i7i)5TR 

IN6$(B,140)" G "STRING»(S,140)CHR$(17i)STRING$CS,140)" H "STRING 

»l8,140)CHR$(176hPRINT8134,"S"iPRINT3154,"C"!fRINTS174,''E":PRIN 

T3198,CHR$1143)STRING$(19,32)CHR$1143)STRIN6»(19,32)CHR$(143) 

470 PRINT9400,CHR$(191)STRING$(19,32)CHRt(191ISTRINB»(19.32)CHR« 

(191):PRINTS464,"B''!PRINT34B4,"D":PR1NT8504,"F"!PRINT5528.CHR$(1 

3nSTRIN6$(8,1401" I "STRING«(8,1401CHR$(131)STR'INGI(8, 140)" J " 

STRINGJ(8,140)CHR$(131)!PRINT8448,"P = PAIR"; 

480 PRINT8512,"S = STRAI6HT"!FORX=lT06!PRINT8249+ni0,DI()())!NE< 

n 

490 PRINT8650,"Do you need Sweepstakes instructions ?":B«=INKEY$ 
500 B«=INKEY$!IFB»<>""THEN510ELSEIFRND(9)=1THENQ=U5R11E4+RND(99) 
):GOT0500ELSE500 

510 B«=CHR$(ASC(B$)AND95)!lFB$="N"THEN540ELSEPRINT8ii>40,CHR$131); 
"In Sweepstakes everyone antes tlO, Each player bet; on the out 
-co»e of the roll of 6 dice. There are three types of bets."!GD 
SUB1470 

520 PRINT8640,CHR$(31))"0ne way is to bet on where the highest n 
uiber rolled will appearif the high nuiber appears in A,B,C,D,E, 
or F you win $300, Let-ters G,H,I,and J cover two spots. If yo 
u bet G, you cover spotsA and C and can win $150.' 




530 G0SUB1470!PRINT8640,CHR$(31); "Another bet is «P» for pairs 
. If two dice next to one anothentatch, you win $200, The thir 
d bet is <<SV> for a straight. If 3 consecutive dice appear i 
n numerical order, you win $450,''iGQSUB1470 
540 PR1NT8640,CHR$(31)!PRINTS690,"A-F $300"!PRINT8754, "6-J $150" 
!PRINT8920,"P $200"!PRINT8884,"S $450"!F0RI=lT0N:N(I)=n(I)-10:S$ 
(II="";NEni:)!=M0:PRINT8980,"Place your bets:"; 
550 F0RJ=IPTGNiPRlNT8)(,N«(J))" - "■,^A-Ub^ 
560 IFJ=NTHENB$=CHR$ (i4+RNDl 1 1 ) ) : 1FB$="K"THENB$="P": 60T0580ELSE5 
80 

570 Bt=INKEY$;IFB$=""THEN570ELSEB$=CHR${ASC(B$)AND95)!lF(B$>"8"A 
ND.B$<"k")0RB$="P"0RB$="S"THEN580ELSE570 

580 FORK=1TDN!IFB$=S$(K)THEN560ELSENEXTK!PR1NTB«;;S$(J)=B$!NEXTJ 
590 IFIP=lTHENHN=l!G0T0620ELSEFaRJ=lT0IP-l!PRINT8X.N$(J);" - ";; 
)l=X+64 

600 B$=INKEY»!lFB$=""THEN600ELSEBt=CHR$(ASC(B$)AND95)!lF(Bt>"8"ft 
NDB$<"K")ORB$="P"0RB$="S"THEN610ELSE600 

610 FORK=lTON!lFB$=S$(K)THEN600ELSENEXTK!PRINTB$;!S$(J)=B$iNEnj 
!HN=1 

620 G0SUB1470iPRlNT8192,:PRlNT3256,:F0RX=lT06:FQRL=lT05:Q=USR(5E 
3+RND(12B))!D(X)=RND!6):PRINT3249+X»10,D$(D(XII;:NEXTL:IFD()()>HN 
.THENHN=D(X>:NEXTXELSENEXTX 

630 FORJ=lTON:IFSKJ)="P"THENS$(J) = "Sorry, no pairs' ":F0RK=1T05: 
IFD(K)=D(K+1)THENS$(J)=" $200 for a pair":mJ)=MlJ)+200!K=5iNEXT 
KELSENEXTK 

640 IFS»(J)="5"THENF0RK=lTO4!lFD(K)=D(K+l)-lANDD(K)=D(K+2)-2THEN 
S$(J) = " $450 for the 5traight":l1(J)=l1(J)+450!K=4!NEXTKELSENEXTK 
650 IFS$(J)="S"THENS$(J)="Nd straight '":F0RK=lTQ4!lFD(K)=D(K+l)+ 
lANDD(K)=D(K+2)+2THENS$(J)=» $450 for the 5traight"iM(J)=M(J)+45 
0:D=4:NEXTKELSENEXTK 

660 lF(S$(J)="G"AND(Dtl)=HN0R0(3)=HN))OR(S$(J)="H"AND(D(3)=HNQRD 
(5)=HN))GR(S$(J)=«I"AND(D(2)=HNQRD(4)=HN))0RIS$(J)="J"AND(D(4)=H 
N0RD(6)=HN1)THENS$(J)=" $150 for bet on "+S$(J):M(J)=IHJ)+150 
670 IFS$(J)>"3"ANDS$(J)<"G"THENK=ASC(S$(J))-64!lFD(K)=HNTHENS$(J 
)=" $300 on spot "+S$(J)!M(J)=M(J)+300ELSES$IJ)=" You lose with 
spot "+S$(J) 
680 IFLEN1S$(J))=1THENS$(J)=" Maybe next tine!" 
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690 NEXTJ;PRINT357i,CHR»(30)!)(=640!FORJ = lPTDN!PR!NT8)(,N«lJ);" - 
"!SJ(J);CHR»(31)!)( = l(t44;NEXTj!lFIP=lTHEN700ELSEFORJ = UOIP-l:PRIN 
TJ)l,Ni(J))" - ":St(0)j!X=)(+64:NEnj 
700 G0SUB1470:RETURN 

Lottery subroutine. Instructions and lottery tic((ets 
shown in line 710. Array D(J) set equal to zero; six dice 
rolled and displayed. If a number J is rolled, D(J) set to 
1. Winning ticl(ets evaluated in line 730, lottery ticket 
string L$ set back to null and return. 



710 CLS:PRINTJ24,"L T T E R Y 

H both the nunbers on your ticket are among the six numbers 

rolled, you will receive 150 for that ticket. Here we go ..,"\f 

0RJ=lT0N:PRINT3576+JI64,N«(J)TflB(20)Lt(J,l)TAB(30)L»(J,2)TAB(40) 

L«(J.3>:NE1(TJ:G0SUBH70 

720 FORJ = lT06!D(J)=0!NEnO!FORJ = lT06!K=RND(6)!PRINT3313+J<10,D$l 

>;)!:D(K):l:Q=USR(1000J(0+n)!NEXTJ 

730 F0RJ=lT0N:F0RK=lT0LEN(L$(J.0)):F0RL=lT0300:NEXTL:lFD(VftL(LEF 

T»(Lt(J,K),l))) = lANDD(VAL(RIGHT$(L»IJ,K),l))) = lTHENM(J>=l1IJ)+50: 

Q=U5R(0):PRINTS586+J«64+KI10,"$50";:NEXTK,JELSEFORL=2032TD20BO;0 

=USR(L)!NEXTL:PR1NT3586+J«M+K»10," — ";:NEXTK,J 

740 GGSUB1470:F0RJ=lTON:L»(J,01="":F0RK=lTO3:Lt(J,K)="":NEXTK,J: 

RETURN 



IHorse race routine. Picture of a horse i-l$ in line 750. 
•Heading and instructions in lines 750 through 760. 
Screen print locations in array D(K). Each of six horses 
is randomly advanced by incrementing print position. 
When POS(O) passes 61 in line 780, winner announced 
in lines 790 and 800. 



750 CLS!H«=CHR»132)+"-"+CHR»(156)+CHR$(140)+CHR$(150)+CHR$(129)! 

F0RJ=lTQ6!D(J)=10+Jtl2B:PR!NT3Jtl28,JiTAB(10))H»iiNEXTJ:F0RJ=lT0 

N:PR!NT3Jtl28,N»(J)i!H(J)=l1IJ)-20!NEXTj!PRINT319,"H R S E R 

ACES '"i!F0RY=7T037STEP3:SET(120,Y)iNEXTY 

760 PRINT3900, "Everyone has bet $20, the winner will receive tlO 

0."!60SUB1470 

770 F0RJ=1T03:Q=USR(266):F0RK=1T020:NEXTK,J 

7B0 F0RI=lTD3!K=RND(6):D(K)=D(K)+l:PRINT3D(K),H$i!lFP0S(0)>ilTHE 

NI=3!NEXTELSENEXT:60T0770 

790 PRINTJ896, CHR$ (31 ) ; : IFK<=NTHENPRINTTAB(23-LEN (N$ (K) ) /2) ; N» (K 

)i" •|:l1IK)=«(K)+100ELSEPRINTTABI16)|"Hor5e Nu(iiber"iKi 

800 PRINT"wins this race! "!60SUB1470:RETURN 

Fortune teller routine. Fortune teller's message 
chosen randomly in lines 810 through 880. Message 
displayed in lines 900 through 920. 

810 M$='"!CLS!PRINTJ242,"T h e Fortune Teller S 
a y 5 :"!K=l!l1=10«RND(5)+50 

820 IFRND(5)=5THENB$="hold a sweepstakes. "iK=2;60T0890 
830 IFRND(5)=5THENN»="hold a lottery. ':K=3iB0T0890 
840 IFRND(2)=2THENN$="cDllect fro* "!K=-lELSEI1$="pay to " 



850 J=RND(N+l>:IFJ<>IPTHEN8iOELSEI1«=l1«+"everyone":f1(IP)=l1(IPI-K« 

N«M:F0RJ=1T0N!I1(J)=M(J)+K«I1:NEXTJ:G0T08B0 

860 IFJ=N+lTHEN(1$=l1i+"the bank";linP)=MIIP)-KJMiG0T0880 

870 N$=M$+N«(J);M(IP)««(IP)-K«I1:I1(J)=H(J1+K<I1 

880 Mi=l1»+STR»(M) + " dollars." 

890 QQ=0;D(0) =5000:0(1 1=5040:0 (2)=5020:D(3)=5007!PRINTCHRI (23) :X 

=USR(266) 

900 l1»=STRlNGt(32,32)+N»(IP)+", H|l$+STRIN6t(32,32):FQRJ=lT0LEN( 

M$)-31:PRINT3512,l1ID»(l1«,J,31);;Q=USR(0(QQAND3)):QQ=QQ+l!F0RTI=l 

T055:NEXTT1,J:H»="" 

910 PRINT3966, "Touch any key to continue") :Bt=INKEY« 

920 IF1NKEY«=""THEN920 

930 1FK=2THEN460ELSEIFK=3THEN710ELSERETURN 

High roller game. Instructions in line 940; all roll two 
dice in line 950. High roll determined in line 960 and 
970. Single winner announced in line 980, lie roll 
causes reroll in lines 990 through 1010. 

940 CLSiPRINT" HIGH ROLLER-- Everyone antes t20 and r 
oils two dice. The highest total takes the $100 prize, To roll 
dice, touch":PRINT" any key on your turn,":60SUB1470!PRINT3192,C 
HR$(31) 

950 F0RJ=lT0N:t1(J>=!1(J)-20:X=64+Jtl28:PRINT3X,N$(J):X=X+10!GQSUB 
1450:D(JI=K:X=X+15:G0SUB1450:D(J)=D(J)+K:X=X-25:PRINT}X+35,"Your 
total i5"|D(J);:NEXTJ 

960 HN=D(l):HM=l:F0RJ=2TON!lFO(J)>HNTHENHN=D(J):HI1=J;NEXTJELSENE 
XTJ 

970 K=0!FORJ=lTON:IFD(J)=HNTHENK=K+l!NEXTJELSENEXTJ 
980 IFK=lTHENPRINT3896,TAB(19+LEN(N$(HH))/2)iN$(H!1)i" wins the p 
ot!"!l1(Ht1)=l1(H!1)+100:B$=INKEY$!GOSUB1470;RETURN 
990 PR1NT3900, "We've got a tie! Those high rollers will roll ag 
sinl"iB$=INKEY$:GDSUB1470:PRINT3192,CHR$(31);:X=192 
1000 FORJ=1TON:IFD(J)<HNTHEND(J)=0:NEXTJELSEPRINT3X,N$(J)!X=X+10 
:B0SUB1450!D(J)=K!X=X+15!60SUB1450!0(J)=D(J)+K:X=X-25!PRINT8X+35 
,"Your total is"jD(J)i;X=X+128:NEXTJ 
1010 60T0960 

Poker party subroutine. Instructions in line 1020. Three 
dice rolled in lines 1030 for all players. Check for three 
of a kind in line 1040, pair in line 1050, and straight in 
line 1070. Winner announced in line 1120. If a tie, start 
routine again. 

1020 CLS:PRINT"P K E R PARTY- Each player pays $20 an 

d rolls three dice, The best poker hand (three of a kind > str 

aight > pair) wins $100. Touch any key to roll dice.":S0SUB14 

70:PRINTJ192,CHR$l31):XX=256iF0RIxlT0N!l1(I)=«(I)-20iNEXTl!H«"0 

1030 FDRI=lTQN!PRINT3XX,N$(I)!F0Rh=lT03:J=I;X=XX+10«ll!B$=INKEY$; 

BGSUB1450!0{M)'»K!NEXTNiP(I)«0 

1040 IF0(l)=D(2)ANDO(l)=D(3)THENPRINT8XX+40,"Three of a kindl";; 

P(I)=30+D(l)!S0T01100 

1050 IF0(1)=0(2)THENP(I)=10+D(1)ELSEIF0(1)=D(3)THENP(I)=10+D(1)E 

LSEIFD(2)=D(3)THENP(I)=10+D(2) 

1060 IFP(I)>0THENPRINT8XX+40,"fl Pair!";:GOT01100 
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1070 FQRJ=lT03:IFlD(li=D(21+lANDD(l)=D(3)+2)0R(D(l!=D(2)-lANDD(l 

i=D(3)-2)THENP(i!=20!NEXTJELSEHN=Dfl)!D(l)=Dl2i!D(2)=D(3)!D(3)=H 

N'lNEHJ 

lOBO HN=D( 1 ) !F0RJ=2TO3! IFD(J) >HNTHFNHN=D(J) rNEXTJELSENEHJ 

1090 P(I)=P(n+HN:!FP(n>20THENPRINTjni40,"A Straight I "jELSEPRI 

M3n+40,"Highe5t Roll is a";P(I); 

1100 n=XJ(+128!lFP(!)>Ht1THENHI1=P(I):NEn!ELSENEXTI 

1110 K=0:F0RI=lTON!lFP(!)=HI1THENK=:K+l:j=!!NEniELSENEni 

1120 IFK=1THENPRINT3914,N$(J))" wins the pot of $100":I1(J)=H(J)^- 

100!GOSUB1470:RETURNELSEPRINT8905,"We have a tie ... so let's al 

1 play another hand"!B0SyB1470!PRINTJ196,CHR»(31):X)l=256:HI1=0:S 

0T01030 

Love thy neighbor routine. Set message in line 1150, 
adjust money In line 1160, and jump to display routine 
in line 890. 

1130 CLS;PRINT3256,CHR«!23)!K=0!t1=RND(5)tUH50 

1140 J=RND(N):IFJ=IPTHEN1140 

1150 M$="5hov( that you're a good neighbor and give "+N$(J)fSTRt( 

H)+" dollars." 

lliO N(IP)=M(IP)-M!«(J)=H(J)+M!GOTOB90 

Easy come easy go routine. Give Instructions and roll 
two dice In line 1170. Adjust money and return. 

1170 CLSiPRINfE (1 S Y COME EASY G -- The bank w 
ill pay you 10 times roll of 2 dice. Touch any key to roll dice 
, "iN»(IP)i".":BOSUB1470:J=IP!)l=279iGOSUB1450!M=K:X=289:G0SUB145 
0:11= (ntK)tlO:n(IP)=M(lP)+M!PRINTS470, "You win";!!; "dollars." 
1180 S0SUB1470!RETURN 

Short message routines. Simple procedures to handle 
following special routines: Win a Few (1190), Unlucky 
Seven (1200), Lose a Few (1230), Even Steven (1240), 
Pot Luck (1300), Jackpot (1310), $100 Bonus (1320), 
Lose a Turn (1330), Tax Time (1340), Bonanza (1350), 
and Mad Money (1360). 

1190 CLS!PRINT"W IN A F E W -- The bank will pay you ten t 

lies 

the roll of one die. Touch any key to roll die, ";N$(IP)i","!SO 

SUB1470!J=IP!X=284!60SUB1450:l1=Kll0:l1(IP)=H(IP)+M!PRINT8470,"You 



win";l1; 'dollars. ";G0SUB1470!RETURN 

1200 CLS:PRINT"U N L U C K Y SEVEN-- Roll two dice. If 
the total is 

seven you lose »100. For any other total, you win $100. 
Touch any key ta roll dice, "jNJdP);". "i60SUB1470!J=IP! l(=279!G0 
SUB1450: M=K : X=2B9: GOSUBl 450: H=M+K 

1210 IFM=7THENPRINT3470,"You lose 100 dolUr5l":MtIPi=H(IP)-iOOE 
LSEPRINT3470,"You win 100 dollars' ":t1(IP)=l1(IP)+100 
1220 GQSUB1470;RETURN 

1230 CLS:PRINT"L S E A F E W - You isust pay the bank te 
n times the roll of one die. Touch any key to roll die, "jN$ 
(IP)i".":G0SUB1470:J=IP:)(=2B4:GQSUB1450:M5Kn0:l1(IP)=l1(IP)-N:PRI 
NT3470,"You losf;Nj"dollars."iG0SUB1470:RETURN 
1240 CLS:PRINT"E V E N S T E V E N - You nay bet up to $90 
and roll two dice. H the total is even, you collect twice yo 
ur bet. Touch any key to roll dice. 

"iNtdPlj", how such will you bet ? ";:IFIP=NTHENB$=STR«(RND(4) + 
5):GOT01260 

1250 B$=INKEYt;IFB$=""0RVAL(Bt)<lTHEN1250 
1260 M=VftL(B$)»10!PRINTM;"dollar5":G0SUB1470 
1270 )(=407:J=IP:B0SUB1450:P=K:)(=417:G0SUBU50!P=P+K 
1280 IFINT(P/2)t2=PTHENPRINT3598,»You win")2«!1|"dolIars,":K(IP) = 
t1(IP)+2»HELSEPRINT3598,"You lose";)!) 'dollars. ":M(IP)=l1tIP)-H 
1290 60SUB1470: RETURN 

1300 CLSiPRINTCHR»(23):M=10IRND(5)+10:N(IP)=H(IP)-l1:l1$=''why don' 
t you sNeeten the pot by giving the bank"+STR«(l1)+" dollars. ':K= 
0:GDTOB90 

1310 CLS;PRINTCHR»(23):H=RND(5)»10+50!l1«="you hit the jackpot! C 
ollect"+STR«(H)+" dollars. "!K=0:«(IP)=«(IP)+N:B0T0890 
1320 CLS:PRINTCHR«(23):I1(IP)=«(IP)+I00:l1$="plea5e accept this $1 
00 bonus! ":K=0!B0T0890 

1330 CLS:PRINTCHR$(23)!l1$="you just lost this turn!":K=0!60TD890 
1340 CLS:PRINTCHR»(23):M»="pay $100 tax to the bank!";l1(IP)=«(IP 
)-100:K=0:60T0890 

1350 aS!PRINTCHR$(23)!M=RNDi51»10!«iIP)=!1{IP)+M«N:F0RJ=lT0N:K(J 
)=H!J)-M:NEXTJ!!1$="WHAT A BONANZA! EVERYONE PAYS YQU"+STP.$(ftJ+" 
DOLLARS. ':K=0!GOT0890 
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1360 CLS!PRINTCHR$(23)!N=RND(5)>10:H(!P)=I1(IF)-NIN!FORJ=1TON:I1(J 
)=l1(J)+M!NEl(TJ!l1»='thi5 ought to make you nad. Sive everybody"+ 
STR»(I1) + " dollars. "!K=0!60T0890 

Game instructions. Called optionally from initialization 
section. 

1370 CLS!PRINTCHR«(23)"Thi5 is the game o< GflNBLER"'!PRINT!PRINT 
"Vou and the TRS-80 are in a con-test to see who will build his 
ilOO bankroll into JIOOO first. Money is made and lost through 
aseries o< games o< chance — 
from horse racing and dice games"; 

1380 PRINT'to lotteries and stteepstakesi Hyou should lose all y 
our jioney 

your lOU will be accepted ( as 
long as you pay it back with 
interest i. Good luck"'iK=0!60T0910 



Utility subroutines. Lines 1390 through 1440 set up the 
sound-making routine in SOUNDS. Lines 1450 through 
1460 wait for Input before stopping on one of the six 
dice pictures at print position X. The computer's dice 
choice is made In line 1450. Lines 1470 and 1480 print 
a message and wait for keyboard response. 



1390 SQUNDI="//////////////////.-'///7.//7/": '28 SLASHES 
1400 I=VflRPTR(S0UND»!:JI=PEEKiIrl)+256IPEEK(I+2):J=J'+65535l(J'> 
32767) 

1410 F0RK=lT036!READAJ;NEXTK;F0RK>JT0J+26!REftDX!P0i;EK.)(iNEXTK 
1420 IFPEEK(16396)=201THENP0KE16526,PEEK(I+l)!P0KE16527,PEEK(It2 
iELSECI1I)"T"iDEFUSRO::j!POKE14308,0 
1430 RETURN 

1440 DATA 205.127,10.77,68,62,1,105,211,255,45.32,253,60. 
105,211,255,45,32,253,13,16,238,175,211,255,201 
1450 B»MNKEY$!lFJ=NTHENF0RLMT0RNDl50)!K=RND(6!:PRINTJX.D$ik);! 
D=USRllE4*RND(99))iNEXTL:RETURN 

1460 K=RND(6l!PR!NT8)(,D»i.K)i;B=USR(lE4+RND(99))!lFlNKEY»=""THENl 
460ELSERETURN 

1470 PR1NTS978, "Touch any key to continue"; 
1480 IFINKEy»<>'"'THENPRINTJ978,CHR»l30);:RETURNELSEIFRND(9)=lTHE 
NB=USR(1E4+RND(99))!GOT01480ELSE1480 © 
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NO ONE ELSE CAN GIVE YOU: 



The same high level of Model I/Model III 
diskette and program compatibility. 

True, complete BASIC program chaining 
with files open and variables saved. 



DOSPLUS 




is the fastest, most powerful, and easiest to 
operate system on the market. DOSPLUS 
works! And works right. For the business 
person and hobbyist, the speed and 
simplicity cannot be beat. For the BASIC 
programmer, no one can offer you more 
than DOSPLUS! 



DOSPLUS III 3.3 

for the TRS-80® Model III 
by Micro-Systems Software, Inc. 

Regular $99.95 





oftSia 
3ifection5 1 

6 5outh jtrast Milfont NH 030SS 



SoftSide 



January 1982 45 



HICLEAI 




AIVENTHE 



<M 



''■:'i«.*, 



4if 



i * . < f 



■- li 



...ki^^ ..fj. 



'Ur 




TRS-80" DV 
APPLE-DV 



by Steven Neighorn 



Nuclear Submarine Adventure is an 
adventure for an Apple (with Ap- 
plesoft) or TRS-80®, requiring 32K 
RAM and disk drive. It is included as a 
bonus program on this month's Apple 
and TRS-80® Disk Versions. 

Due to the growing threat of Com- 
munist expansion and nuclear pro- 
Hferation, the U.S. S. Nautilus has been 
totally refitted with modern equip- 
ment. This includes 16 missile tubes 
carrying the new Trident-1 nuclear 
missiles; a water-cooled reactor; two 
torpedo tubes armed with MK-48 
torpedoes; and totally new submarine- 
quieting, mobility, and self-defense 



systems. For the crew there is a new 
and separate health room, and an easy- 
access passageway in the fore and aft 
sections of the ship. 

You are a new crew member aboard 
the Nautilus. Although you have 
received extensive training before start- 
ing your tour of duty, experience is the 
best teacher. You will learn much dur- 
ing your stay. You are currently 
aboard with a skeleton crew, testing to 
see if (and how) the ship can be safely 
operated in the event that most of the 
crew should become incapacitated. 

Remember that you, as a member of 
the United States Submarine Corps, 
are helping to ensure that the United 
States continues to maintain a credible, 
surviving deterrent to nuclear war in 
the 21st century. 



NOTES ON PLAYING 

This adventure recognizes 22 com- 
mands and 45 objects, and has 41 loca- 
tions. Only the first three letters of any 
word are needed for the computer to 
understand the meaning of the com- 
mand. Some useful commands are: IN- 
VENTORY, to list what you are cur- 
rently carrying; LOOK, to look at an 
object; and QUIT, to end the game. 
There is no HELP command, but you 
can use SAVE and LOAD to preserve 
and recall a game in progress. 

You can carry up to five objects at 
one time. Likewise, only five objects 
can be at any single location at one 
time. In some rooms where there are a 
lot of objects, you might not be able to 
read certain objects, because of the 
way the display scrolls. All you have to 
do is to move to another room where 
there are not as many objects. © 




by Matt Rutter 

Death Star is a graphics game pro- 
gram for a 32K ATARI® with disk 
drive. It is included as a bonus pro- 
gram on this month's ATARI® Disk 
Version. 

You are a spy for the rebel alliance 
and you have just been transported in- 
to the nuclear reactor room of the in- 
famous Death Star. Your mission is to 
find and activate the faulty reactor, 
which will quickly set off a chain reac- 
tion capable of destroying the Death 
Star, and then to escape with your 
own life. 

The computer will draw a map of the 
reactor room (different each time you 
play), with you at the left side, the 
48 January 1982 



reactor at the top, and the exit on the 
right side. You will then be shown a 
three-dimensional view of the maze 
from where you are standing, facing 
east (right). The only items you are car- 
rying are a compass and an electronic 
map with failing energy cells. The com- 
pass direction is displayed at the bot- 
tom of the screen. You can use the map 
at any time simply by pressing "M"; 
however, your energy cells will hold 
out only for eight viewings of the map. 
To move through the corridors you 
use the arrow keys as follows: 

Up-arrow: Move one space forward. 
Left-arrow: Turn left. 
Right-arrow: Turn right. 
SoftSide 




ATARF DV 



Down-arrow: Turn about-face. 

You must use these keys to move 
through the twisty maze of passages 
until you arrive at the switch that ac- 
tivates the nuclear reactor. When you 
face this switch, you will be able to 
turn it on by pressing "P". After doing 
this, you have only a short time to find 
the exit and escape before the count- 
down reaches zero and the reactor ex- 
plodes — taking you with it. (If you 
find yourself needing either less or 
more challenge, you can adjust the 
initial countdown value, CD, in 
line 1140.) 

Good luck, and may the Force be 
with you. © 
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rARI®orTRS-80® is today's best investment in 
computer software. Subscribers receive a 
minimum of four quality programs and databases 
per month, at an average cost of $2.60 eacli. In 
1981, SoftSide DV publisfied "NEWBASiC," "En- 
vyrn," "National Anthems," "Volleyball," "Mean 
Checkers Machine," and "Bobsledding" in addi- ; 
tion to all the programs listed in SoftSide. 
SoftSide DV will allow you to enjoy your system 
and your programs without the tiresome typing of 
line listings AND you won't waste additional time 
hunting for your typing errors. Simply insert the: 
disk, boot, and you'll be ready to type COM- 
MANDS the day you get your diskette. I I 1- 
A subscnption to SoftSide DV is more thahp: 
savings — it's an investment in an ongoing^" 
library of software — multiple and Machine 
Language programs which v^ould be difficult to 
read and even more difficult to key into your 
system. You'll spend your software dollars wiseiv 
with a subscription. Where else could you find \ 
four programs on disk AND a software magazme 
for less than $10 50"? 



Vbii Can Do A I this For Xess 

SoftSide DV, including twelve disks ahc 
magazines, costs only $125 per year. But, we'll 
make it easy on your budget: We'll bill you only 
$32.50 per month for four months. (You probably 
spend more than that for most of the programs 
you buy now.) The installment plan includes $5 to 
cover our extra billing costs. A subscription to 
SoftSide DV gives you a minimum of 48 quality 
programs and twelve issues of SoftSide per year 
— a true value. 

Order your SoftSide DV subscription TODAY. Use 
the coupon below or the bind-in card 
elsewhere in this issue. 
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Silbscnption Software VS Conventional Software! 1 



(Based on a low estimate ot $15.0d per program; 
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BONUS — Subscribe before Jahuary 31, 1982 

And receive a disk or cassette containing some of our finest software from the ■ 
past. Disk to include all of our 1981 enhancements! 
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Cassette 
^ Version 



CV Is a Smart Investment i ; b^^^ri-c^ f<^2t<x4^ 

Consider the value of your time. Is the savings 
you gain by typing in programs truly worth more 
than $2 per program? We doubt it. However, a Ti 




The SoftSide Cassette Version (CV) is a very 
economical and time-saving investment in com- 
puter software for you and your Apple^'^, 
ATARI® or TRS-80® . You'll get all of the pro- 
grams for your system published in SoftSide on 
cassette every month at an approximate cost of 
$2 per program. 

SoftSide CV lets you enjoy your computer and 
programs without the tiresome typing of line 
listings, AND you won't waste additional time 
hunting for your typing errors. Simply load the 



cassette and you're ready to run. 
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subscription to SoftSide CV is more than just a^X 
savings — it's an investment in an ongoing ' 1 
library of software. Where else can you get three 
programs on cassette AND a software magazine 
for less than $6.25 per month? i p|--|--t +-i'--t -f-f 

A subscription to SoftSide CV, including twelve 
cassettes and magazines, costs only $75 per 
year. You probably bought your cassette system 
because it was an economical way to enter 
computing. Now save even more money with ajlt 
subscription to SoftSide CV. 
Stop typing and order your CV subscription TO- 
DAY! Use the coupon below or the bind-in carcj 
located elsewhere in this issue. You'll be enjoy 
ing the value of SoftSide CV in only a few 
weeks. 
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I SUBSCRIBE TO DV OR CV NOW AND RECEIVE YOUR BONUS GIFT 
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<^ With SoftSide CV or DV you'll get each month's Apple^*^ ATARI" or TRS-80* programs delivered on tape or disk. 
'""All programs are tested and ready to run. 
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D, SoftSide Disk Version $125/year LI SoftSide Cassette Version $75/year 

1 ■ 11 Four monthly payments of $32.50 (includes $5 billing charge) 
Which computer? D AppleTM, q tRS-SO", Q ATARI-^ 
C Check here if you would like to have the remainder of your current SoftSide subscription 
converted at the rate of $4.25/cassette,or $8.42/disk. 

Namn - : r—'- — ^ i — ! 



I ■ ArifiresR ■ ■ ■: ' - \ - I 

\. — j-Clty/State : -^ - 

\\ — f-tH fvlasterCard D VISA Name of Cardholder. 



=t=t= 



-rMGSand lnterbank#/VISA#.^ ■ ■ ■ ■- 

-Lexp- Date_ Signature ^ - _^ ■ -j— 

-4-Prices subject to change without notice. AppleTM, ATARI- and TRS-SD" are registered trademarks of- 
\ The Apple Computer Company, Warner Communications and The Tandy Corporation respectively. 
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Letter Writer 

An ATARI® K-Byter by Harry 
Caporuscio, Dhahran, Saudi Arabia 

This is a simple word processor pro- 
gram which allows you to type a page 
of text on your ATARI® and dump the 
screen to a printer. You simply input 
your text line by line, pressing 
RETURN at the end of each line. 
Editing is accomplished by using the 
control arrow keys. When you have 
entered 23 lines of text, they will 
automatically be sent to the printer just 
as they appear on the screen. If you 
want to dump the screen prior to filling 
all 23 lines, type an asterisk (*). 

While the program is written for a 
40-column printer, it could be adapted 
to 80 columns by using a concatenation 
technique. Another possible modifi- 
cation would be a routine to save 
the text to disk for later recall or 
processing. 



1 Rti LETTER WRITER 
; REK Bi HARRY CAPORUSCIO 
3 REM AUGUST l<?ei 
5 P3i 82.0 

20 " CHRlil25) 

3C OPEN ft3.A.0,"S:" 

40 FOR 1=0 TO 22: INPUT LI 

50 IF Ll="»" THEN I!0 

iO NEH I 

no FOR COWN=0 TO 22 

120 POSITION I.DOWN 

130 FOR ACR0SS=1 TO a"? 

HO GET #3,L 

150 L$iaCROSS.ftCROSSl=CHRi(L) 

ItO NEH ACROSS 

170 IF L«(l, !)="«" THEN END 

IBO LPRINT Lit 1,3? I 

190 NEXT DOWN 

200 RUN C 
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Letter Spitter 



An Apple K-Byter by Jon Voskuil, 
SoftSide 

This is purely a fun program, written 
with young children in mind but amus- 
ing for oldsters as well. A creature of 
some sort appears at the bottom of a 
blank screen, and waits for you to 
press a key. The character you type is 
spit by the creature up onto the screen, 
with an appropriate sound. As you 
type more characters, they too are spit 
upward and take their place in line, 
while the creature moves around at 
random at the bottom. When nine 
rows have been filled, the creature 
starts over at the first position once 
more — but without clearing the 
screen, so that some letters on lower 
rows may be knocked out of place by 
the new letter as it zips past. 

Pressing the RETURN key will move 
you to the next line down, as usual; 
and pressing the ESC key will clear the 
screen. Because of the ONERR state- 
ment in line 100, no key except RESET 
will cause the program to terminate. 



1 REff 

2 REH "LETTER SPITTER" 

3 REN BY JON VDSKUIL 

4 REM- 

100 DNERR GOTO 130 

no 3 = - 16336 

120 B$ = "IT + CHR* (92) 

130 HOHE 

140 INCR = 6 

150 P5 = .5 



160 C = 1:R = 1 

170 COL = INT ( RND (1) * 38i + 

n 
L 

ISO ROW = 20 + INT ( RND (1) » 5 

) 
190 VO = ROM! HO = CQL 
200 VI = (ROW - R) / INCR 
210 HI = (COL - C) / INCR 
220 VTflE ROW - 1: HTftB COL 

Gi; 
230 IF PEEK ( - 163841 < 127 THEN 

230 
240 GET X«: POKE - 16368,0 
250 POKE S, PEEK (5): POKE S, PEEK 

(S): POKE S, PEEK (S): POKE 

S, PEEK (S)i POKE S, PEEK (S 

): POKE S, PEEK (S) 
260 IF n = CHR» (27) THEN 130 
270 IF Xt = CHR» (13) THEN C = 

- 1:R = R + 2: GOTO 350 
280 FDR I = TO INCR 
290 V = P5 + R0« - VI J l! VTflB V 

300 H = P5 + COL - HI 

310 PRINT l%\ 

m VTAB VO: HTflB HO 

330 VO = ViHO = H 

340 NEXT 

350 POKE S, PEEK (S)i 

(S) 
360 C = C + 2: IF C > 38 THEN C 

IsR = R + 2 
370 IF R > 18 THEN R = 1 
380 VTftB ROW - h HTAB COL - 1 

II (I , 
f 

390 GOTO 170 



PRINT 



« I: HTftB H 
PRINT ■ "j 

POKE S. PEEK 



PRINT 



® 
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Row Switch 



A TRS-80® K-Byter by Carl Bevington, Salem, OH 

This is a game which is played on a board five squares across and two 
squares deep. Five markers are initially placed in the five upper posi- 
tions of the board. The object is to move these markers so that they oc- 
cupy the five lower positions on the playing board. 

The markers can move only according to the following rules: (1) The 
marker on the extreme right may move up or down without restriction, 
while (2) The first four markers may move up or down only when the 
marker to their immediate right is in the up position and all other 
markers to the right are in the down position. 

A minimum of 21 moves is necessary to complete the exchange of 
markers and end the game. 

100 DEFINTA-Z:DIMPi80),C'.80):CLS:F0R:«=2T0l25:SEr!S,3i:SEI(.i;,4i:S 

ET(X,15:i:SET(X,!6):SET'<,27):SEl(?,28.i!NE<Tii:F0RJ=2T0!22STEP24!F 

0RY<>T028!SET()!,Y!!SET(.U!,V.i!SET!I+2,yi!SET'j;+3.V!!NEnv,y; 

110 A*=CHRS I !91 ! +CHR$ ( I'Ji ) +CHRi U vi ) +CHf;J '. 1?I ; +CHR$ n?l ! :F0RI=i5 

TC74:READF(I):rU)=0:F'RINIJP!l}.r:HR»';!:ii!NEn!:FOR!=&5TOfr?:r.(l! = 

I:PRINTSP(Ii+66,A$;:PRINTJF'I.i+322,' 

TA13!, 143, 155, 147. 179, 387, 399.41 1,423, 

120 PRIN1S465."M0VE NUMBER"; iPRlNT}677 

130 PRIKTJ784," 

!NTi78ii,"M0VE FPOf!?": 

140 Ft=INKEY«:IFF«=""THEN140ELSE15!> 

150 FRINTJ798,F$i:PR!NT}803."!10V'E TO'"; 

liO Tt=lNKEyt!lFT«=""THEN16(iELSE17(i 

170 PRINTJi813,Tt!:F=ASCiF$.):T=ASC!lt);!FF,.?4uRT.;74THEN250 

180 IFC.iF)=0THEN25O 

190 IFC(T:i<>0IHEN250 

200 IFF«T=4550ANDC(66)=64ANIiCii7)+C(iS!+C(fc9.i=OTHEN240 

210 IFF»T=4i8fcANDC!67)=67fiNDCio8i+C',49i=0THEN2s0 

220 IFF»T=4324ANIiC:ii8:i =68ANDC (feV) =OIH£H260 

230 IFFtT=4964ANDC!i9)=69THEN2aO 

240 lFF«T=510.iTHEN240 

250 PRlNTJ78uS"H0yE NOT POSSIBLE. TRY AGftlN.";:F0RQ=lTO700!NEnS 

: GOTO 130 

2iO C(F)=0:C(T)=T;FRINT3FlT)+W,Hf;:PRINfiFiF)+6t." "i:J=Z 

+1 

270 IFC(.45) »C(Aii tC(67l tCliS) tC ifc9j=0ANDCi70! »C':71 )<Ci:72) tC(73!> 

C(74)<>0THEN280ELSE120 

280 PRINTS784," YOU FINISHED IN ":2-I;" MOVES. "; !FORQ=1T0700:N 

En8:G0T0110 © 



:iNEXr I i RESTORE: 2=1 iCA 



:PR 
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by Randy Hawkins 



First in a two-part series. 

How many of you who traded in your Model I for a 
Model III had the following happen to you — After playing 
with your brand-new Model III computer for a while, you 
decide to get down to serious business and begin program- 
ming using the Editor Assembler program. Setting the 
cassette on the low 500 baud rate, you load the Model I 
Editor Assembler program with no trouble. But when you 
try to execute it, you are baffled — that is, unless you 
graduated from Tokyo High School. Not only is the title 
filled with Japanese characters, but none of the standard 
editor assembler functions works properly. Your $30 invest- 
ment has gone down the drain, and you are without one of 
your most valuable programming tools for who knows 
how long! 

Not only did this happen to me, but it made me very 
angry. I was not about to lose a perfectly good program. I 
was convinced that with a little detective work I could find a 
way to salvage my program . . . and I did! This article will 
describe a way to fix the program and allow it to operate 
just as it did on the Model I using a simple BASIC program 
to make the changes. In addition, once you have your 
Model III Editor Assembler (hereafter referred to by its file 
name, EDTASM) up and running, you can use it with a sim- 
ple Machine Language program which will be presented 
next month that will translate 500 baud SYSTEM tapes into 
1500 baud tapes. 

The information presented in this article assumes you 
have the EDTASM pTogram version 1 .2 and a standard 16K 
or larger cassette-based Model III. If you now own a Model 
III but do not own the £■/) 7^4 SM program, you could con- 
ceivably purchase the program and make the changes in this 
article to use it on the Model III. However, it might be wise 
to wait and see how this revised version compares with the 
one soon to be released by Radio Shack. On the other hand, 
if you kept your copy of EDTASM when you sold your 
Model I and purchased a Model III, then you cannot go 
wrong by following the instructions below. 



How to Fix it 

The first step in our repair work is the BASIC program 
listing found with this article. Type in this program as listed. 
Granted, the scores of DATA statements are very tedious. 
But without the convenience of an editor assembler pro- 
gram, it is our only way to change the program at this time. 
Since the program is almost entirely numerical entry, a 
method of checksums is used to help alert you to incorrect 
entries. 

Once you have keyed in the program, CSAVE it before 
running it. This is to prevent you from losing your hours of 
hard work should the program accidentally return you the 
Cass? question. 

With a copy on tape, now RUN the program. After 
POKEing the correction instructions into high memory, the 
program will prompt you to load the original version of the 
editor assembler. Type in the word "EDTASM" and press 
enter. (The baud rate has correctly been set at 5(X) for you.) 

Once the program has loaded, enter a slash and "25000". 
Note: That is not just a slash, but a slash and the number 
"25000". In a few seconds, the program will instruct you to 
load a blank tape into the recorder. Do so, set it on record, 
and touch any key. A new version of the EDTASM 
modified for the Model III will be saved on your tape. If 
you want additional copies, leave the cassette on record, 
and touch another key when instructed to do so. The pro- 
gram will continue to record as many copies as you desire 
since it is caught in an endless loop. To escape, press the 
RESET button. 

How to Use it 

The revised version of the editor assembler saved to your 
tape is now ready to use. Load it using the SYSTEM com- 
mand, file name EDTASM. Since the program loads at 
1500 baud, it will now load in under a minute rather than 
several minutes as it did on the Model I. 



10 CLS iPRINT iPRINT "This program nil! create a ne;*, revised ve 

rsion at the S-SO EBITOR/ASSEHBLER for the Modei III. The ch 

anges included aBBuse you are using version 1.2 of EDTASH. The r 

outine is now being loaded ..." 

20 BA=24999 :IN=100 

30 FDR J=l TO 34 !C3=0 :FOR ! = 1 TO 10 iREflD XII) !CS=CS+.K(I) :NE 

n I :REfiD n !lF noCB THEN PRINT "Checksum error in Iine";LN 

iEND 

40 FOR 1 = 1 TO 10 JPDKE Sfl+I.XU) iNEH I :SA=SA+10 !LN=LN+10 :NE 

n ..I 

50 PRINT :PRINT "The special routine is now ready. At the 'I?' p 

rospt belQH," jpRINT "load the original EDTASH prograi in your c 

iisette and set it" :PRINT "to PLAY. Type in 'EDTASH' and press 

<ENTER).» 



60 PRINT "When the progi-an has loaded successfully, type in" ;PR 

INT TAB!22) "»? /25000" ;PRINT "as shown above. FoUow the direc 

tions to save the revised" sPRlNT "EDITCR/ASBEftELER for the Mode 

i III to vou' oi»n tape." 

70 POKE 16913,0 : SYSTEM 

100 DATA 33,239,67, 17, 173,98,6,3,205,215, 105i 

no DATA 9,33,96,68,17,176,98,6,3,205,711 

120 DATA 215,9,33,170,69,17,179,98,6,10,806 

130 DATA 205,215,9,33,201,72,17,189,96,6,1045 

140 DATA 6,205,215,9,62,176,50,227,72.62,1084 

150 DATA 95,50,14,67,33,248,1,34,222,70,834 

160 DATA 33,100,2,34,67,71,34,70,77,34,522 

170 DATA 58,79,34,64,79,34,73,79,34,173,709 

180 DATA 89,34,179,89,34,183,89,34,205,92,1028 
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190 DATA 34,211,92,33,150,2,34,88,77,175,896 


330 DATA 100,2,62,120,205,100,2,33,173,69,866 


200 DATA 33,166,77,119,35,119,35,119,33,135,871 


340 DATA 125,205,100,2,124,205,100,2,205,248,1316 


210 DATA 2,34,53,79,33,53,2,34,91,77,458 


350 DATA 1,24,138,245,129,79,241,205,100,2,1164 


220 DATA 34,112.77,34,121,77,34,150,77,34.750 


360 DATA 201,195,36,48,195,115,4,195,194,3,1186 


230 DATA 100,77,34,187,77,62,1,50,17,66,751 


370 DATA 175,50,17,66,195,138,70,77,79,68,935 


240 DATA 33,201,98,205,167,40,205,73,0,205,1227 


380 DATA 69, 76, 5!, 69, 68, 84, 65, 33, 77, 10, 652 


250 DATA 135.2,33,195,98,62,85,205,100,2,917 


390 DATA 10, 80, 82, 49, 80, 65, 32, 69, 32,84, 653 


260 DATA 6,6,126,205,100,2,35,16,249,17,762 


400 DATA 79,32,82,69,67.79,82,68,32,82,672 


270 DATA 0,93.33,0.67,62,60.205,100,2,622 


410 DATA 69,86,73,83,69,68,32,69,68,84,701 


280 DATA 6,64.120,205,100,2,14.0.125,205,841 


420 DATA 65,83,77,10,34,72,69,73,32,80,650 


290 DATA 165,93,124,205,165,98,126.35,205,165,1336 


430 DATA 82,69,83,33,32,65,78,89,32,75,688 


300 DATA 98,229,55,63.237,82.225,40,8,16,1053 


440 DATA 69,39,32,34,79,32,66,69,71,73,664 


310 DATA 241,121,205,100,2,24,214,16,2,24,949 


450 DATA 73,46,0,0,0,0,0,0,0,0,124 


320 DATA 7,62,0,205,165,98,16,251,121,205,1130 


© 



Bugs, Worms 

and other undesirables 




There are two probleiss with the Apple 
program, 'Music Hachine,' published in 
the Noveiber, 1981, issue. One is that 
the mod function subroutine does not 
work quite properly because of a round- 
ing error inherent in Applesoft. This 
can be easily corrected by nodifying 
line 60 as follows: 

60 R = INT ((NUn / HOD - INT (N 

U« / HOD)) t HOD + .00001):. RETURN 

The second problei involves processing 
rests. Thanks to Gary Bradley for the 
following aodifications: 

50 IF NT = THEN FOR I = 1 TO 
2 t (D - (D t TEHPO - D) / 8 
): NEXT I: RETURN 

55 «t TNT.D - (D I TEHPO - D) / 8 
! RETURN 



2410 NN = 0: IF Ci = "R" THEN 259 






TRS-80^ One Liner 



I A»=INKEY»!lFF=0CLS!CLEftR999;PRINTCHR«(95))!F=l!B0T01ELSEIFA«»" 
"THENlELSEIFAI=CHR»(13)0RC=61THENLPRINTB$iB$="'!C=0:PRINTCHR$(29 
l+CHR$(26)+CHR«(95)i!60T01ELSEPRINTCHR$(24)+A«+CHR$(95)i!lFA«=CH 
Rt (8) Bt=LEFTt (Bt, LEN (B$) -1 ) iC=C-l i 60T01ELSEB(=8$m! C=CM 1 60TD1 

MOODY POPE 
1029 NISTY MAY 
GARLAND, TX, 75040 



WHEN YOU SPEND SO MUCH FOR A PRINTER, 
YOU SHOULD HAVE ONE THAT YOU CAN USE— 

Introducing.... 

THE IBM TOTAL PRINTER/TYPEWRITER 




FEATURES: 

10 and 12 Pitch, Proportional Space, Full Typewriter Use, Auto Correcting, 
Sound Cover, "Snnart" Keyboard 

SPECIFICATIONS: 

200 WPM Throughput, Either Serial OR Parellel, Self-Test, Lowest On-Site 
Maintenance, IBM Backed Printer. Cables stocked for all Apple, TRS(I, II, 
III), RS-232 systems. 



PRICE: ONLY $1995 (With 30 Day IBM Service Agreement) 
CONTACT: 

ICOM 11 N. Main, Lombard, Illinois 60148 (312)932-1756 
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by Alan J. Zett 



The USR subroutine presented in tliis article is an enhance- 
ment to TRS-80® Level II and Dislt BASIC requiring at least 
16K RAM. 

This column is basically a concept with an accompanying 
program, designed to enhance the operation of BASIC with 
Machine Language. This can be accomplished by adding new 
commands, such as the SOUND command from the 
November issue, or by modifying the commands already 
available to be more flexible. The latter will be the subject of 
the next two installments. The subject for this month is 
"RESTOREing to a line number;" but before I get too far 
into this month's column, I wish to expand a little more 
on SOUND. 

ERRATA: The documentation for SOUND stated that the 
command would stay in memory "until a system reset occurs 
or until any statement that clears variables is executed." This 
is not so. SOUND is not effected by a statement that clears 
variables. Because the length of the BASIC program that 
pokes in SOUND is a bit long to be used within a BASIC pro- 
gram, at the last minute I decided to change the way in which 
it would be stored in memory. It now resets memory size by 
itself and is self-relocating. Unfortunately, the documen- 
tation had already been printed up. (This month's routine 
can, however, be wiped out with a CLEAR statement because 
it is only a USR routine poked into a variable.) 

The best way to use SOUND (or any of my new com- 
mands), is to run the initializing routine (the BASIC pro- 
gram) and then erase the program by typing NEW. SOUND 
will still be in memory so you can then load in a program con- 
taining SOUND statements and it will work properly. The in- 
itializing program was also written to be included as a 
subroutine for an all-in-one, self-contained program us- 
ing SOUND. 

Also, because BASIC handles an IF statement differently 
than the other commands, it is necessary to precede SOUND 
with a colon if used after a THEN or ELSE statement, other- 
wise a ?SN error will occur. For example: IF A = I THEN 
SOUND 11,11 ELSE SOUND 200, 1000 will not work, but IF 
A=l THEN :SOUND 11,11 ELSE :SOUND 200^1000 will. 
This is true of all new commands that will be appearing in this 
column. The Machine Code program itself could be modified 
to handle this special case, but since it is already quite long, 
it's easier just to use the colon. 

Another problem with tying into the error relay is that 
ROM will have already cleared the line below the current cur- 
sor position to make way for an error message. This means 
that if you type PRINT® 966,"HI";:SOUND 11,11 the en- 
tire screen will scroll one line. To get around this I use a 
PRINT@0; before the start of any sound. Note that the 
sound statement in a FOR. . .NEXT loop will not generate 
multiple line feeds, so a PRINT@0; before a set of SOUND 
statements will work fine. For an example of a program using 
the SOUND statement, see Space Rescue in an upcoming 
issue. 

And now: On to this month! One of the better features of 
Atari BASIC is the ability to RESTORE the data pointer to a 
specified line number. TRS-80® BASIC already has this abil- 
ity but lacks the coding to make it work. 

The short USR routine presented here will allow a line 
number to be specified as the start of the data pointer. 
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BASIC will react to this number in many different ways. For 
example: A normal RESTORE will set the data pointer to the 
first program line. When a READ statement is processed it 
will start searching each line from the start of the data pointer 
forward for the first DATA keyword it can find. Note that 
data need not be on the first line pointed to by the data 
pointer. 

With the USR routine, a line number is searched for and, if 
found, is marked as the starting point in the data pointer. If 
there are no data past that point, an ?OD or Out of Data er- 
ror will occur because the program is trying to read data that 
are not there. If a RESTORE to Une 150 is executed and line 
150 exists, then if there are data at lines 100 and 200, line 200 
will be used for data instead of line 100. 

The format for the USR call is: 



X = USR(line number) 

where "line number" is any number between and 32767. 
The line number may also be negative for numbers higher 
than 32767. The reason for this is that any USR argument 
must be an integer or an ?OV error will occur. 

Program 1 is a listing of a BASIC program that will POKE 
in the RESTORE routine, followed by Program 2, a 
demonstration program. After that is Program 3, an 
unassembled listing of the source code for all you Machine 
Code hackers out there. 



Program 1 

1 CLS:CLEAR:RESTt=°TH]S IS WHERE IT 60ES!": RESTORE 

2 DATfi205, 127, 10,229, 209, 205, 44, 27, 48,i,ll, 237,67,255,64 

3 DATfi201, 30, 14, 225, 195, 164,65: Z=VARPTR(RE$)!Y=PEEKIZ+1)+PEEK(Z+ 
2)t256:F0R)(=YT0V+21:READV:P0KEl(,V:NEXT!lFPEEK(16396)=201THENP0KE 
16526, PEEklZ+l):P0KE16527, PEEK (Z+2)ELSECI1D"T":P0KE14308,0:DEFUSR 
=Y+65536>(Y>32767) 



Program 2 

1 CLS:CLEAR:REST$="THIS IS WHERE IT BOES!':RESTORE 

2 DATfl205, 127, 10,229, 209, 205,44, 27, 48, 6, 11, 237, 67, 255,64 

3 DATft201, 30, 14,225, 195, 166, 65!Z=VARPTR(RE»);Y=PEEKIZ+1)+-PEEK(Z+ 
2)l256:F0RX=YT0Y+21:REflDV!P0KE)(,V!NEXT:IFPEEK(16396)=201THENP0KE 
16526, PEEK(Z+l):POKE16527,PEEK(Z+2)ELSECI1D"T"!POKE14308,OiDEFUSR 
=Y+65536«IY>32767) 

10 A=70: CLS 

20 1(=USR(20): READ A$! PRINT A» 
30 )(=USR(A): READ A»: PRINT M 
40 1(=USR(A+10)! READ A$: PRINT A» 
50 X=USR(A«3-100): READ A»: PRINT A»: END 
60 DATA "LINE 60 TEST DATA" 
70 DATA "LINE 70 TEST DATA- 
BO BOTO 80 

90 DATA "LINE 90 TEST DATA" 
100 BOTO 100 

110 DATA "LINE 110 TEST DATA" 
120 BOTO 120 



Program 3 








00100 


0R6 


OFOOOH 


; BASIC PRD6RAN IS RELOCATABLE 


OOnO FLINE 


EQU 


1B2CH 


;F1ND A LINE NUMBER IN NEN. 


00120 RSTPTR 


EQU 


40FFH 


fRESTORE DATA POINTER 


00130 6ETUSR 


EBU 


0A7FH 


;BET USR AR6. INTO HL 


OOMO ERELAV 


EQU 


41A6H 


i ERROR RELAY 


00150 START 


CALL 


6ETUSR 


;6ET USR AR8. 


00160 


PUSH 


HL 


! TRANSFER TO 


00170 


POP 


DE 


i DE REGISTER. 


00180 


CALL 


FLINE 


; SEARCH FOR LINE NUMBER 


00190 


JR 


NCUL 


ilF LINE DOESN'T EHST 


00200 RESTOR 


DEC 


BC 


i SUBTRACT ONE 


00210 


LD 


(RSTPTR 


,BC ;SAVE NEW POINTER 


00220 


RET 




; RETURN TO BASIC 


00230 UL 


LD 


E,14 


jHAKE A ?UL ERROR 


00240 


POP 


HL 


f REMOVE USR RET ADDRESS 


00250 


JP 


ERELAY 


i AND PRINT IT. 


002i0 


END 




© 



TRS-80 One Liners 



smasm^£sum t lAfisaa£j«3asix| • JsaadrKaueis^ai 






siasii 

1 

i 

1 



n UanEiaasKsaal a Isaasaaasaas^i £ aBsaaaaeaaaaal a 



aaaaa aaaaaaaa 
aaaasaaaaaaaa 
aaca.^Bssaaaaa 
aaaaaaaaaaaaa 



asissBSaBBaaaa 



3 asa8aBi)aBff-aai| a 
Jt attscBaKaBBaxal a 



ssaaaaaaaaaasl a 



aBBaaaaaaaaaai s 



KUB&aaaaaaeaas s 



aaaaaasaaasaBi s 



asssaases 
asaiBitaaB 

saaaaaaaa 

aii^aafiBBSs 

BBBBBBB^ft 



saaasaaaaasaBai 



I'N 



«BVaHS 



MMaai s iBBMasaBMaaHJ s isassasaaisBBsaf a jaBcaaBaiHaivaj ■ |bb3x 
BBBaBBBaial a jaaaBaBBHaBBBaj a |aBauicaaBea«ia| a |s3KaaBaBaBaaBS!| • 
BftaBBBBBBCBaflaj B lacacaBisaEBsasI b JBEaaasaaaBBas 



Bl X iaBacaKBaaaaaaal 



\n\. 



b|b| 



•BBaaBaaaaaBe 



lasBBaaaBBBBaaal s iBaaaaBBBBaaaiai a IsasBBBBaa 



laaaaj a !BXBBBBBBBBBaBaj a jaBaBBSBaaBaaBal s |BSBBBii»BBaaa3| a jiiBiBB 
Bttaaaaaaaaia UBaaaaaaBaasassI a UaaaaBsassasaaBal^a ^ssaaBBBaaaaitBB 

1 CLSiCLE3R4()0;At=LHRtil49)+CHRtil4:;!i+:HS$(17jhFDRJ=lTC150:F0RI 
=lT020!PRINTAli:NEn:A«=A$*rHR$;i<a;;NEn 



Mike Kenekes 
Harrisville, PA 



1 A»=IMKtY?:IFF=0CL5:CLEKR999;PRINTCHR$(95i;!F=h3flTQlEL3EIRA$=" 
"THEN1EL5EIFA$=CHR$!!3)0Rl=61THENLPR1NTB«:E?="";C=0:RRINTCHR$(29 
HCH8»(26!+CHR$(9j!i;SQT0iELREPRINTCHR$;24)+AS^LHR$'9;S;;!-A$=CH 
R}!BiBJ=LEFT$iE5,LFN(E»/-l):C=C-I:GnTniEL5EEt=B$+AtiC=CM;G0TGl 

Woody Pope 
Garland, TX 



1 X»=CKR»(191l;F0RX=0T01E33STEP.Q3;PRiMi961,"-l"i;PRINTi!021," + 
r';:PRINT;'992,"0".'!PRINTS9?2+?3INfX;»29),!!t!:PRINT3?92+!SIN{)(«l. 
5)»29l,XJ;iPRINT3992+iS!Ni;<t2)t29),X9iif>|F:<T 

Alan J. Zett 
SoftSide 
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by George Delp 

TRS-Man is an arcade game for the TRS- 
80® Model I or III and requires 16K of RAM. 

This is a real-time game very similar to a popular 
arcade game. You control a little mouth with the four 
arrow keys, and try to "eat" all of the little white 
dots (periods) on the screen. Each white dot is worth 
ten points. There are one to four computer- 
controlled creatures chasing you. When you run into 
one of the creatures or it runs into you, it counts as a 
hit against you. After you've been hit three times, the 
game ends. 

There are also four stars (asterisks) on the screen. 
When you eat one of them, you get 100 points and all 
of the squares on the board light up. While the 
squares are lit, you can eat the computer-controlled 
creatures. They are worth 200-800 points. After 
awhile, the squares will turn dark, and the computer- 
controlled creatures will start chasing you again. 



Variables 

A, B: FOR-NEXT loops and miscellaneous. 

AD: The difference between your position and that 

of the creatures chasing you. 

CO: Counter for how long the squares stay lit. 

D: Equals 15360 (start of video RAM). 

DI: Direction of the player's mouth (1 = up, 

2 = down, 3 = left, 4= right). 

DI(l-4): Direction of the creatures chasing you. 

Dl$-D8$: Graphics strings used in printing the 

playing field. 

Fl$-F2$: Graphics strings used in lighting the 

squares after you eat a star. 

FL: Flag which is set to 1 when you can eat the 

creatures chasing you. 

I, J: FOR-NEXT loops and miscellaneous. 

NF: Number of dots and stars that you have eaten. 

NO: Number of creatures out on the playing field 

chasing you around. 

PCS: Graphics string used in printing the creatures 

chasing you. 

PK: ASCII value of what previously occupied the 

player's position. 

PK(l-4): ASCII value of what previously occupied 

the creature's position. 

PL$(l-4,l-2): Graphics strings used in printing the 

player's mouth. 

PO: Position of the player's mouth. 

PO(l-4): Position of the creatures chasing you. 

SC: The player's score. 

T, X, XX: FOR-NEXT loops and miscellaneous. 

Z: Equals PEEK(14400); used to scan keyboard for 

arrow keys. 
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$$$$$$«$$»$$$$$$$$${$$$$$$$$ 

$ TRS-80 BfiSIC $ 

t "TRS-MN" $ 

$ Autnor: George Delp t 
$ ic) 1982 SoftSidB t 

$$$$$$$$$$$$$$$$$$$$$$$$$1$$$$ 

Initialize variables, clear string space, and print the title 
page. 

10 CLEfiR500!DEFINTA-Z:DIflPL(4,2):D=15360 

2C PCt=CHR$!182)+CHRt!191)+CHRt!185):PL$(i,l)=[:HRt(191)+CHRt(176 

)+CHR$i!9i:!!PL$(2,l)=CHR$!!9!)+CHR${131)+CHR$(191):PL$i3,!)=CHR$ 

il79)+CHR*il791+CHRt(191i:PL$!4,!)=CHRt(191)+CHR$i!79)+CHRi(!75) 

21 CLS:PR!NTS5.PC$PC-$PC$PC$PC$" "PCtPCSPCtPCt" "Pr:?P« 



»PC$" "PCf" 

'■pCi" "PC$" 

"PC$PCtPC*PC$" 
"PC*" 

"PC$" "PC$" 

"PCJ" "PC*" 



"PC$" "p 

"FC$ 

"PCtPC*PCt:FRlN 

"PC*! PRINTS 

■PC* 

"PC*PC*PC*:PR 



"PC*" 
"PC*" 



"PC*" 



PC*:PRINT575,PC*" 
C*:PRINTS139,PC»" 

22 PRINT3203,PC*" 
TS2q7,PC*" "PC* 
331,PC*» "PC*" 

23 PRINT}395,PC*" 
INT3450,"';:FDRT=IT020:PRINT". ";:NEn 

24 PRINTS5!7,PC*" "PC*" "PC*" 

"PC*:PRINTS581,PCtPC*' "PC*PC*" "PC* 

CtPC*" "PC*!PRINTS645,PC*" "PC*" "PC*" 

"PC*" "PC*" "PC*" "PC* 

25 PRINT3709,PC*" "PC*" "PC*" "PC*" 
"PCf »FC*:PRINT2773,PC*» "PC* 
'per "PC*" "PC*:PRINT3337,FC*" 

"PC*" "PC*" "PC*PC* 

26 PRINT3901,PC*" "PC*" "PC*" "PC* 

"PC* 
30 PLt{l,2)=CHRt(176)+CHRt(191)+CKRt{176):PL*!2,2)=CHR*(131)+CHR 
*(191)+CHRt(131):PL*(3,2)=CHR*(140>+CHR»il40)+CHR*(191)!PL*(4,2) 
=CHR*(191)+CHRt(140)+CHR*(140) 



"F 



"PC*" "PC*" 
"PC*PC*PC*PC*PCt» 
"PC*" "PC*" 



"PC*" 



35 Fl*=STRING*(7,188)+C.HR*i26)+STRIN6*(7,24:i+STRING*i7,191J+CHR* 
(24) +STRING*i7,24)+STRIN8*i7, 143) :F2*=STRING*i4.!gS)+CHR$ {24.1+31 
RIN5*(4,24)t3TRING*!4,19i)+CHR*(26)+STRINGti4,24)+S:RINB*f4,143J 
40 FORT=448T0505STEP3:PRINTST,PL*(4,2);:FOR.!(=;T050;NtX.T:PRINT5T. 
PL*(4,!);:FORI=OT0200;JiEXT:PRlPlTST." ";:NEn 
50 F0RT=lTC500:fiEn 

Display Instructions. 

lOD CL3;PSI51TCHR*(23)STRIN6*i31,140):PRil1TTAB\9)"T R S - M A N"; 
PRINTTfiB;e)"BY: BEORGE BELP":PRINTSTRING*i31, 140) 

110 FRlKTIflSie)" 10":PR!NTTAB(B)"it 100";FRI 

NTTAB!7)PC*" ...... ?77?";FRINTSTRINB*(31,140) 

120 PRINT" THE '"CHS*i93)'" KEY HAKES YOli EG LEFT"!pRIST" THE '" 

CHRti94)»' KEY HAKES YOU GO R!GHT":PRINT" THE '■' KEY MAKES YOU 

SO UP";FRIKT" THE '"CHR*!?2!"' KEY hAKES YOU GO flOMN":PRINTSTRIS 

B*(3!,l?0) 

130 PRINTTAB!5)"PRES3 THE ;ENTER> KEY":PRINTTAE(7)"T0 START ;HE 

BA!1E":PRlNTSTRiNS*ni,I40i: 

150 iFINKEY*<>CHR*(13)THEN!50 

Initialize variables for the game about to start. 

500 SC=0:NF=144:5C3iJS9000;NQ=0 

510 IFNF=144PRINT8PG,PL*(DI,1);:F0RT=1T04:PRIWT3P0(T),» ";:NEX 

T:GnSLiB9100:NF=0;pn=544;Di=3:PQ!l)=130:P0(2)=955:B0!3)=lS7;P0(4! 

=S93:DI(!)=4!Dl>2)=3:Dl!3)=3:DI(4)=4!pK(l!=46;FK!2}=4i:PK!3)=44; 

FK(4)=44:N0=N0+;;iFN0>4N0=4 

Display player and add to his score if necessary. 

520 PK=FEEK;D+PO+li:IFPK=44PK:=32;SL=SC+10iNF=NF+l;FRINT30,SC;!PR 
I!JTSF0,PL*(D!,2); 

530 IFPK=42PK=32:3C=SC+iO0:NF=NFtI;PRINT50,SC;iPR:MTSFD,?l*;DI,2 
ii:GDSiiB9500!CO=20!FL=l 

531 C0=CD-1:IFC0=06D3UB9510:FL=0 

532 IFFO=51iP0=571ELSEIFP0=57'lFn=514 
534 C1=C1-1:IFC1=0PRINTS544," ''i:Fl=0 
£40 PRiNTSFD,PL*(Di,l); 

Go move the creatures chasing you. 

5»5 buSUElOOO 



Wrap-around of player going from one side of the screen to 
the other. 



546 IFDI=4AN0PQ=571PRINTJPO," ";!FO=514;GOT0510ELSEIFD!=3ANDPO 
=514PRINTJP0," ";;PO=571:GOT0510 

See if the player wants to change direction. 

550 Z=PEEK(14400):IFZ<>OTHEN700 

Player doesn't change directions, so move mouth in the 
current direction if possible. 

560 IFDI=1IFPEEK(D+P0-63)<129PRINT;3PO," ",■ :PO=FO-64!60T0510 
570 IFDI=2IFPEEK(D+P0+65)<129PRINT3P0," ■;:P0=P0+44:GGTO51O 

580 ]FDI=3IFPEEK(D+PQ-2)<129PRINT3P0," "j:P0=PD-3:G0TQ510 

590 IFDI=4IFPEEK(D+P0+4)<129PRINT3P0," "; :P0=PO+3:GOTO510 
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600 G0T051O 

Player wants to change directions, so turn moutli and see if 
it can move. 

700 iFZ=BTHtNDI=l;IFFEEKiD+PD-63)<129PRINT3PD," ";iP0=P0-64!60 

TGSIO 

710 IFZ=16THENDI=2:1FPEEK;D+P0+65)<!29PRINT3P0," »; :P0=P0+44:G 

DTQ51C 

720 IF2=32TKENDI=3:IFFEEKiDtFG-2)<!29PRINT3P0," "; !pn=P0-3:GOT 

0510 

730 ;FZ=64THFNDI=4!:FPEEMD+P0+4)<i29PRINTapn," "; :PC=P0+3!G3T 

G510 

740 30T0510 

IVIovement logic for the creatures who are chasing you. 

1000 F0R"=1T0NC 

1005 AD=pna)-PO 

lOOo IFD]a!=4AN0POa!=571PRINT3?OiX}," "CHR$!PK()0)" »;:FeU)=5 

I4;GGTD150OELSEIFDH);;=3AfiDP0(!!)=514PRiNTSPO{S)," "CHRt!PK(DJ" 

";iFQa:=57i:eOT01500 

1007 !FPO\X)<520ANi)POa))512Dia)=4;60T01100 

1010 IFAG>2ANEAD<40THENIFPEFK(D+P0(i)-2}<1290RP0=F3iji-3TH£NPRiri 

TSPDiU," "3HR$(?K()i))" ";:pniX)=PC(X)-3:PK(S!;=FEEK!DtFQ\U+l):P 

PINTSPOa),PC*;!DI(){)=3!60TC!500 

1020 IFHD>-40aNChD;-2THE!sIFPEEKiD+P0(X)+4;<129CRpn=FGilf)f3THENPR 

INTSPOiK)," "CHRIfPKfK))" ";iFDi)i)=POiJJt3:pt:()()=PEE!<(D+F0(«) + l) 

;PRiKT3PO!X),P33ii:3I!X)=4:GOT01500 

1030 IFAD>flIFAO/64=iNTifiD/64)IFPEEKiD+P0i)!)--63)<129nRFD=P0(J)-i!!4 

FRINTJFO()()," "CKRiiPKiX))" "i :Fa()!)=PDi)()-i4:PKa)=PEEK(D+F0!);) 

Ti;irRlfil4pG!Xi,FCJ;;Dia)=heGT01500 

1040 IFflD/64=INTiA3/i4iIFPEEKlD+P0()i;+fc5)<!290fiP0=P0(X)+64PRlNTJ 

PO ()!;,■' "CHR$(PK(n)" ";!pQ(X;=PQiX)+64;PK(!<)=PEEK!D+PQiX)+l)!FR 

INT3PO(X;,PC*;:2nX!=2:S0TO15eO 

:100 IF51iX} = lIF?EEKiD+P0(X)-63!<129PRlPiTSPG(X)," 'THR*iPK(X) ) " 

^:PC(X;=PDiX)-64:PK(X)=FEEK!D+PO!X)+l);GOT01500 

1110 iFDIiX;=2!FPEEKiD+P0iX!+i5)<i29PRINT3P0iX)," "CHRtiPKlX)) " 

";;PGfXi=PO(Xi+64;PKai=PEEK!D+POiX)+l);GOTG1500 

1120 ;FDi;X:=3IFPEEKiD+PDa)-2)<129PRINT3P0iX)," "CHR$(PKiX)i" " 

;iFOa)=PO(Xi-3:FK!X;=PEEKiD+P!3(X}+l):EOTO150O 

1130 IFDia)=4IFPEEKiD+P0(XJ+4j<129PRlNTSPO(X)," "CHRtiPKiX))" " 

;iF0ai=PCiXi+3:PK(X)=PEEK(D+PC(X)tl);G0T01500 

1140 DI(X!=RND(4);G0TG1500 

Sul>routine to see if you have eaten or if you have t>een eaten 
by one of the creatures. 

1500 !FFL=LANDPO=PO!X)GDSGB2000:GDTQ510ElSEIFPD"[X)=POTHEN1501ELS 
E1510 

1501 FRiNT3Pn,PL$il,l)i:G0SUB1503:PR!NT3P0,CHRt!186)CHRJil91)CHR 
$il81)j:60SUB1503iPRINT3PO,CHRt!176)CHR${19i)CHR*(176);:GOSUB150 
3:PRINT}P0,CHRt!176}CHR$ll88)CHR$(176);:GQSLlB1503:PRINT3PD,STRIN 
6$(3,176i;:60SUB1503:PRINT3PD,' "CHR$!176)" ";:G0SUB1503 

1502 PRINTSF'O," ";!G0B11B1503:TR=TR+1: IFTR=3PRINT3534,"YQUR SCO 
RE kiAS"BC; :F0RT=1T05000:NEXT:RUNELSE1515 

1503 FORT=1T0200;NEXTT!RETURN 
1510 PRINT5PD(X),PCti!NEXTX:RETLiRN 

1515 F0RSX=lT0N0:IFPK(XX)=170PK(XX!=32ELSEIFPK(Xr)=191PK(XX)=46 

1516 PRINT3P0(XX)," "CHR$(PK(XX))" "j !NEXT:PRINT3P0," "; 

1520 P0=544:DI=3:P0(l)=13O:P0(2)=955:PD(3)=187!PO(4)=898:DI(l)=4 
!DI(2)=3!DI(3)=3!DI(4)=4:PK(l)=PEEK(D+P0(l)+l):PK(2)=PEEKiD+P0(2 
;+l):PK(3)=PEEK!D+P0(3)+l):PK(4)=PEEK(D+PQ(4)+l>:6DTQ510 



Subroutine to increase your score if you have eaten one of 
the creatures. 



2000 PT=F;NB(4)»200:PRINT3PO-l,PT;:SC=SL.+PT!PRINT30,SCi:FDR]=lT01 
0;BDSUB9510:GOSUB9500:NEXT 
2010 A=RND!4) 

2020 IFA=l!FPEEi;iD+131l(129PD{X)=130:DI(X)=4:PK(XJ=PEEK(D+131)!R 
ETURN 

2030 IFA=2IFPEEKiD+956)<129P0(X)=955:DHX)=3:P|:!X)=PEEK!D+956!:R 
ETURN 

2040 lFa=3IFPEEKiD+183)<i29P0iX)=137:DI(X)=3:PK(X)=PEEK(D+lB3):R 
ETURN 

2050 iFA=4IFFEEKiD+S99)<129PQiX)=B9S:DI(X)=3:PKiX)=PEEK(D+S99):R 
ETURN 
2060 GOT02010 

Subroutine to print the playing field on the screen. 

9000 BiJ=CHRt(lS8)+CHRJ!26;+CHR${24):F0RT=lTQ5!DU=DIt+CHRt!191) 

+CHR$i26)+DHR$(24!:NEXT:Dl$=Dl*+CHR$(143}:D2«=CHRJC18B)+CHRJ(24! 

!FQRT=lT05:D2$=D2i+CHRta9i:i+CHR$!24i:NEXT:D2t=C2$+CHR$il43) 

9010 B3f=CHR$(18S)+CHRt{2i!+CHR$i24;:F0RT=lT03:B3$=B3$+CHRt(191J 

tCHR$!26J+CHRtl24j:NEXT:D3$=D3$+CHRI(143):D4$=STRING$\62,i4ni;D5 

f=STRiNG$(i7,140i:D6$=STRiN3$;i4,140) 

9020 D7*=CHR$f:i8B!+STRING$(5,140)+CHR$(133t+CHR$(2i)+STRING*i7,2 

4!+CHR$il9n+CHRt(197)+CHR$!191)+CHR$(26)+STR!KS$(7,24)+CHR$il43 

i+3TRlH5$i5,140)+CHRtil43) 

7030 DSi=CHR$(lSS)+3TRIN6t(2,140)+CHRt(188)+CHR*(26!+STRING$i4,2 

4!+[:HR$(191)+« "+CHR$(191)+CHRJ{26)+STRINBt(4,24)+CHRtll43i+STR 

ING$i2,i40)+CHR$(143) 

9040 CLS:PRlNTi64,Dl$;:PRINT35?i,Bl$;;PRINT3127,D2$i:PRINT}639,L 

EFTI(D2$,li)j!P0KE163B3,143:PR!NTJ210,E3*;:FRINT3216,D3$j:PRINT3 

23!,S3Ji:PRINT3237,D3ti!pRINT3594,D3$i:PRINT3600,B3J;:PRINT3615, 

D3is!FRINT3621,D3$; 

9050 PRiNT365,B4$i:PRINT3961,D4li!pRINT3449,D5$i:PRINT3577,D5$ii 

PRINTS494,B5$;:PRlNT3622,D5t;:PRINT3473,D6ti:PRlNT3601,Dfa*;sPRIN 

T5!93,[i7$;:PRINT3710,D7$;!pRINT3243,D7t;!pRINTS755,D7t;:PRINT322 

2,D3*;:PRINT3734,D8*; 

9060 RETURN 

Subroutine to print all the dots and asterislis on the screen. 

9100 RESTCRE:PRINTJ22,'T R S - M A N"; 

9110 READA,B:IFA=-lTHEN9120ELBEPRINT3A,°"i!F0RT=lTQB:PRINT". "; 

iNEXT:BQT09110 

9120 REAIiA,E:IFA=-lTHEN9130ELSEF0RT=AT0BSTEP64:PRINT3T-l," . ";: 

NE):T:E0T0912a 

9130 PRINT3393,"<"!!PRINT3438,"»";:PRINT3649,"t";:PRINT:J694,"ri 

9140 RETURN 

9200 DATAi31, 20, 515, 20, 399, 20,387,5, 443, 5, 411, 4, 667. 4, 432,5, 688. 

5,-1,-1,195,323,207,335,219,411,228,420,240,432,252,444,707,835, 

719,847,731,859,740,863,752,830,764,892,213,853,234,874,-1,-1 

Subroutine to light up all the squares on the screen. 

9500 PRINT3198,Fl$i:PRINT3710,Fl$j:PRINT3243.Fl$|:PRINT3755,Fl$i 
:PRINTS222,F2$i:PRINT8734,F2*i:RETURN 

Subroutine to turn off all the squares on the screen. 

9510 PRINT3198,D7$;:PRINTS710,D7$i:PRlNT8243,D7$i:PRINT8755.D7»; 
!PRINT3222,D8$;!PRINT3734,DB*i!RETURN © 
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The Captain 80 Book of 



BASIC 




• Eighteen famous 

adventures, listed in large easy to read type, 
ready to be keyed in. Adventures by Boner 
Kepner, Powers, Micklus, Forsythe, Greg 
Hassett and others. 

* Includes Temple of the Sun, Dog Star, 
Lost Ship, Spider Mountain, Lost Dutch- 
man's Gold, Thunder Road, Sorcerer's 
Castle, Deadly Dungeon, Atlantean 
Oddysey and others. These adventures 
would cost over $200 is purchased 
individually! 

* Includes a unique Adventure 
Generator program - not available 
anywhere. YES, this program will 
actually write another BASIC 
adventure program, which you 
may then run. Not even the author 
of the generator program knows the out 
come! This program alone is worth the price of 
the entire book! 

* Includes chapters on what an adventure is, how to 
play adventures, how to write adventures, how to sell 
your adventure, ten adventure program ideas, and 
more! 

* Study the techniques and methods used by the 
masters of adventure program writing. All adventure 
programs listed in this book are in their original form 
and in full length. Although specifically written for 
the TRS-80 Model I and III, these programs are 
adaptable to other computers using Microsoft's 
BASIC. H 

* Available at your dealer approximately | 
November 15th, 1981. The suggested retail price 
of this book is $19.95. 

* The BASIC Adventure Book was compiled 
and edited by Bob Liddil, of The Programmers 
Guild. It measures 8y2 by 11 inches and contains 
256 paqes 



A neat Christmas 
gift idea! 



ORDER YOURS TODAY! 

Dealer discounts available please inquire 

TRS-80^ is a rvgislcrcd Irademark of rhr Tandy Corp. 



Send To: 80-U.S. Journal 

3838 South Warner Street 

Tacoma. Washington 98409 
Please send my copy of the BASIC Adventure Book. My check 
or Money Order for $22.00 ($19.95 plus $2.05 postage and 
handling) is enclosed. 

Name 



Address 
City 



-State. 



-Zip 



Visa/MC. 



-Signature 



Exp. Date— 

(206) 475-2219 Phone orders accepted for Visa/MC only. 

OrderoSS 
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Vici is a TRS-80® political war game 
for one player requiring 16K Level II 
BASIC, 16K Model III BASIC, or 32K 
Disk BASIC. 

The Cessa Valley is surrounded by 
mountains formidable enough to make 
it nearly impenetrable. The two small 
states the valley contains, Vici and 
Arce, are threatened only by each 
other. 

Your older brother was the ruler of 
Vici. For his peace of mind and your 
safety, you were sent into exile when 
very young. Now, he has died childless. 
So you as heir presumptive, will be of- 
fered the throne. 

All you know of the state affairs of 
Vici is that the major decisions are 
made at the semi-annual courts. In the 
fall at the Harvest Court, the ruler sells 
as much as he wants of his reserves to 
the assembled merchants and plans for 
next year's farms. In the spring at the 
Military Court, the ruler plans for the 
defense of the realm and any other 
military objectives as he desires and 
can afford. Armies are very expensive! 

Peace is dear to all wise rulers, 
however Vici and Arce have been war- 
ring as long as anyone can remember. 
The only way to end the strife is for 
one to conquer the other because the 
game does not permit peace. The 
player is not forced to conquer Arce, 
but Vici will suffer depredations until 
Arce falls. 

The way to defeat Arce is to conquer 
its army with yours. That requires 
cash. The primary source of cash is 
Vici's agricultural output. The output 
is determined by the weather and the 
attitudes of the population. The 
weather does not, in itself, help or hurt 
either side. However, the changes from 
year to year permit the ruler to profit 
from or lose in speculations. Concern- 
ing attitudes, the game gives the player 
quite a bit of latitude. No single act, no 
matter how unjust, dooms the ruler 
because internal events are the out- 
come of processes, not acts. 

Crime can serve as an example. The 
program postulates an insufficient 
number of criminals to do much 
damage. If, however, the ruler makes 
decisions that force people off farms, 
some of them will turn to crime. 
Criminals can be caught and a large 
enough army will discourage some in- 
stances of criminality, but that costs, 
and it is not enough to save a ruler 



by 

PObERT a POLIXXK 



firmly committed to foolish policies. 
The first task of the player then is to 
extract as much cash as possible 
without so upsetting the internal proc- 
esses that he comes to grief. If the 
ruler has decent relations with 
k his banker, each spring he will 
A receive a tapestry which is 
' more than just a wall hanging. 
Having a large army is not 
enough to defeat Arce. It must 
be properly used by applying 
the greatest force when the 
enemy is weak. How much the 
player needs going in his favor 
depends on his handicap. At 
the lower handicaps, the 
following factors must be 
favorable: Last year's harvest 
(the enemy will be weaker 
after a poor harvest), the ter- 
rain (wet ground makes it hard 
to conclusively trounce the 
enemy when in hip-deep mud), 
the relative strengths of the 
armies, and the state of 
Arce's army. 

At low handicaps, Arce will 
be beatable only if the player 
has regularly adopted tactics 
that keep Arce pouring 
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her resources into replacing soldiers 
rather than into reserves. In contrast, 
at the highest handicap, Arce is a 
pushover. If its first harvest is poor, in- 
vading with a good-sized army will 
bring victory before the first year of 
the reign is over. 

The ruler, then, can fail if he lacks 
the resources and knowledge to act at 
the right moment. The same rules, in 
general, apply to the conquest of Vici, 
except Arce is always assigned the 
lower handicap. 

A ruler may fail because he runs out 
of time. The higher the handicap, the 
greater the period of time he is al- 
lowed, but eventually, an unconquer- 
ing ruler is gently retired. 

Instructions 

Playing Vici does not require any 
special skills or knowledge. The world 
it models is not particularly esoteric 
(nor plausible) and devoid of super- 
natural elements. 

Much of the program is devoted to 
screen displays and keyboard inputs. If 
the program needs a response from 
you, it will let you know. Most of the 
time you respond to the video display 
by hitting a single key. "Please indicate 
..." means the program is waiting for 
your order to continue. Any regular 
key will continue the program. 
"(Y/N)?" means the program needs a 
yes or no answer. Just hit the "Y" or 
"N" key as appropriate. The single 
stroke inputs mean you have to watch 
your fingers. Resting them heavily on 
the keyboard can depress a key. The 
program assumes you can foretell the 
next response needed. It stores a 
keypress and acts on it if the next 
needed response is of the single stroke 
input type. 

From time to time, the program will 
request a number from you. These are 
the only times when it is necessary to 
use the ENTER key. Type in the 
number you want and hit ENTER. The 
game begins with such a situation by 
asking for your handicap. The larger 
the number you select, the easier 
the game. 

Occasionally, the program gives you 

messages that do not require a 
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response. The program will move on its 
own after a time. You can change most 
of these pauses by changing program 
Hne 3800. It now begins: FORXO 
= 0TO200... If you change the 200 
to a larger number, the pauses will 
lengthen and a smaller number will 
shorten them. 

A note on currency: 100 coppers = 
one silver piece. 

There is no save-game feature. While 
Vici has puzzle elements, it is not a 
puzzle. Because significant events are 
the outcome of processes, there is no 
point, short of victory, where the 
player is safe. Good luck. 

Variables 

AA: A 15-year weather history, also a 

level of general prosperity. 

AV: Vineyards. Set by AA and 

invariant within a game. 

AW (0)- AW (2): Represents respective 

winter, spring, and summer weather 

for this year. The agricultural year 

begins at the end of the Harvest 

Court. 

AW(3)-AW(5): Represents respective 

winter, spring, and summer of last 

year. 

AW(6): Represents the sum of 

AW(0)-AW(2). 

AW(7): Represents their sum of 

AW(3)-AW(5). 

FP: Grain price offered. A function 

of AW(6) and MH. 

PR: Price asked in Harvest Court. 

Equal to FP + .25. Also, the state of 

Arce's army, largely a product of 

MH. It is shown by the presence or 

absence of swords in the hands of the 

fighting men in the tapestry. 

FY: Yield factor. A function of 



AW(6). It determines the productivity 

of the land and the sheep herd. 

ME: Arce's reserves. At the highest 

handicap, it has little significance, but 

as the play becomes more difficult, it 

may mandate a change in strategy. 

ME(1): Arce's army. 

MH: The player's handicap. 

MM: Financial standing. Determines 

whether the banker will send a 

tapestry. 

MP: A disposition to resentment 

(rents). 

MR: A disposition to distrust. 

MT: Equal to MP + MV. 

MV: A disposition to violence. 

MX: Farmers killed. 

MY: Time. The years of the reign. It 



is diplayed on the victory graphics. 

MZ: Farmers plundered. 

PF: Farms. A product of many 

elements and a factor in others. 

PG: Vici's army. 

PV: Criminal vagrants. A powerful 

factor in crime. 

S(2): Grain. 

S(3): Sheep. 

S(4): Wine. 

TA: Credit available. 

TB: Debt. 

TR: Cash. 

T(l): Rent. The percent of the harvest 

owed to the ruler. 

T(6): Interest. The rate at which the 

ruler can borrow money. It varies 

with AA and debt status. 
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Ueta-game. Clear string space, define variables, obtain 
handicap, etc. 

150 RflND0f1:CLEflR250:DEFSTRH,I,V:DEFINTA,H,F,)!!DII1ftA<14)!CLS!lNPU 

T"VOUR HANDICAP (1 TO !0J ";e!l1H=Q!lFflH>100RHH<10RI1H<>Q60T0150ELS 

ECLS: XL=0: fi=86: GQSUB4 100: S0SUB4500: F0RX=0T02: 60SUB4200: NEXT: GQSU 

B4100 

160 IFMH<3FFiO)=OELSEIFnH>2ftNDMH<5THENFP(0)=.25ELSEIFI1H>4ANDf(H<7 

FP(0)=.5ELSEIFI1H>6ANDMH<9FF(0)=.75ELSEFPi:0;=l 

Declaration of string variables. 

200 Tt="TOTAL":yH="YOUR HIGHNESS":TTt=' ":H(2)="SRflIN"!Hl (21= 
"BU3HEL3':H(3.l="3HEEP"!Hl(3)="HEAD";Hi4)="WINE":Hl(4)="CASKS"!RP 
t=" REP0RT":HD(O)="CRO«N ":HD(I)="RESERVES" 
210 HD(2)="RES0LiRCEE":HD(3)=°HARVEST":HD(5)="SPRlN6"!HD(4)=''mNT 
ER":HDi6)=" COURT": Y(0)="PRODIGALI"! Yd )="AI1PLE.":Y(2)="I1EAGER." 
;Y(3)="BADi":TH»="THE"!Hl="FARI1S":CD»="C0NI1ftNDANT'S"+RP»+": " 
220 H2i0}=»8ENTED":H2(i)="FftLLQt(":PG$=''l1EN-AT-AR«S":SL«="SILVER 
PIECES':H2i:2)="VINEYARDS":PL»="PLUNDER£D°:YN--=" (Y/N)?":DW=" WIL 
L YOU " 

230 DD»="DO YOU WISH TO ":DA»(0)="SELL ":DA$(1)=''BUY ":CP»='CQPP 
ERS/":H«$(2)="BUSHEL":l1ft»(3)=Hl(3):ftf!$(4)="CASK':PU«="ll#l«f:IS 
=", IS THAT SATISFACTORY"+YN 

Set up initial conditions and open game. 

300 T{1)=.25:S(1!=0:TR=0:PV=RN1){35):IFPV<2560T0300 
310 PRINTJ704/THE RULE OF VIC! IS YOURS OF RIGHT. DO YOU TAKE 
INTO YOUR CARE THE HONOR OF YOUR FAHILY AND THE FORTUNES OF THI 
S LAND"+YN:SOSUB3400:IFIN="N"CLS:END 

320 PRINTJ899, "GODSPEED YOUR JOURNEY TO OUR BELOVED ANCESTRAL HO 
HELAND!":FORXX=OT05:GOSUB1000:NEXT 

330 SOSUB3700:PRINTJ512,TT»+"ME, YOUR LOYAL SUBJECTS, REJOICE IN 
YOUR ARRIVAL. YOUR"!PRINT"REISN AND DUTIES BEGIN. HE KNO« BOO 
FORTUNE ATTENDS US ALL.' 

340 G0SUB3S00:F0RXX=4T013:6OSUB100O:NEXT:IFAA<150RAA>3960T034O 
350 TR=750-(AA«10!:T(i)=(10+A«(4))/100:TB=-AAt50:AV=AA:PF=3000+( 
iO»(23-flA)):PJ=100000/AA:S(3)^PJ:PG=PF/100>10!PJ=PFJ1.4iS(2)=PJ! 
NE=400-(Stl1H):GOSUB1700 

Main program body. It calls subroutines and performs some 
logical and aritfimetic functions. If the game is not ended, 
line 500 sends the program to line 400. 

400 GOSUB1900:SOSUB1800:GOSUB1AOO:GOSUB2000:IFTB<060SUB2100:GOSU 

B2400:ELSES0SUB24O0:60SUB21O0 

410 60SUB4000:GQSUB1000iGOSUB2AOO:IFPF<1850eOT03200 

420 MB=0!NX=0!NE=«E+FYt(30-3»(HH-l));A$="r:60SUB3100:PRINTa529, 

'THE "+HD(4j+" SNOWS MERE "+Y!AW(3)+1):XL=P6»1. 13-«E(1)!«E(1)=P6 

n . 13: IFXL<I1ETHENHE=«E-XLELSEHE=0! HE ( 1 ) =PFt . 12 

430 FR=RND(10):IFFR<3FR=0ELSEIFFR>NH+4FR=0ELSEFR=1 

440 PG(l)=0:l1E(2)=OiSQSUB3500: IFMH<2G0SUB3700:PRINT8512,TH$+' BA 

NKER HAS SENT A TAPESTRY. "+BDt+"SEE IT"+YN:60SUB3400!lFIN="y"G 

OSUB4300 

450 CLS!HD='I1ILITARY"+HD{6):60SUB3900:NS=12:CLS!XL=0!A=91:80SUB4 

100:BOSUB4500!60SUB4200:BOSUB4200:GOSUB4100 




PLEASE INDICATE WHEN YOU WISH TO CONTINUE YOUR HIGHNESS 



460 PRINT"TACTICAL ALTERNATIVES:":PRINT,"1) RESPOND AND DEFEND, 
■:PRINT,"2) RAID AND HARASS, "iPRINT, "3/ INVADE ARCE." 
470 XL=14:PRINT8XLl4.4,YH+', WHICH ALTERNATIVE WILL YOU ADOPT";: I 
NPUTQ: AO=Q: IFAQ<10RA0>30RA0( >Q60SUB2280; S0T0470 
480 HE(OJ = (PFt{l+AC/'(10-AO)))/10:GOSUB1500:«S=IO:l1B=l:60SUB4000! 
A«=".":S0SUB3100:PRINT}529,"THE "+HD(5)+' RAINS WERE "+Y(AW(4)+1 
);GQSUB3500:IFPG<PF/18GOT03200ELSEIFAfl=3SOSUB2700ELSEIFAQ=280SUB 
2800ELSEGGSUB2900 

490 HE(0)=PF».ll!PB=P6-PS(l.l!HE(l)=PtEil)-HE(2):IF«C<500RP6<PF/18 
G0T0320OELSEIFPG(l)>0GOSUB150O 

500 IFi1Y)54-l1H60SUB3700:PRINT3518,"0UR RESPECT IS UNDINHED, BUT 
YOUR ADVANCED AGE WIIL SOON END YOUR ABILITY TO RULE. YOU ARE 
DEPOSED ! " : F0RX=1 TOl 5: S0SUB3800: NEXT: CLS: END: ELSE60T0400 

Subroutines. All subroutines begin on a line number that is a 
multiple of 100. 

Weather. 

1000 F0RX=0T02:AW!X)=AW(X+3):NEXT:F0RX=3T05:AW(X)=RND(2)-l!NEXT: 

AW{7)=AW(0)+AW(l)+AW!2):AM(6)=AW(3)+AW!4)+AW(5):AA(14)=A«(i):AA= 

0:FORX=0TO13:AA(X.l=AA!X+l);AA=AA+flA(X):NEXT:AA=AA+AW{6) 

1010 IFAW(6)=0FY=1.4:FP=4.5!ELSEIFAW!6I=1FY=1.2:FP=4.75!ELSE.IFAW 

(i)=2FY=l:FP=5.25;ELSEFY=.8:FP=6 

1020 FP=FP+FP(0):fiETURN 

Crime. 

1100 l1V=NV-l+AA/i-!PG-{PF1.09.ll/10!lFI1V<iriV=l 

1110 «2=20«(PV»300/PF+I1V+AW(7)):«X=(HZ»(I1V+AW(7))/30)+NA!K«=(PV+ 

nV+A«(7))tl0:PF=PF-l1X;S{3)=S(3)-flH 

1120 MX(0)=«X/(AW(7)+2):M2(0)=MZ/(AW(7)+4);HW(0)=HW/(25+l1V+AW(7) 

) :PV=PV-( (MX (0) +I1Z (0! +«M (0) ) /4) ! IFPV<PF/120PV=PF/120 

1130 KT^MV+HP: RETURN 

1200 PRINT3XLt64,H{2) , , :PRINTUSIN6PU«;S{2) | ;PRINT" "+H1 (2) i :(L=XL 

+1; RETURN 

1300 PRINT8XL164, "EXCHEQUER",, :PRINTUSIN6PU*iTRi:PRINT" •+SL»:XL 

=XL+l;IFTB<0PRINTaXLU4,'DEBT",,:PRINTUSINGPU»iTB|:PRINT" ■+SL»+ 

" J°;T(6)»100j"X":XL=XL+l 
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1310 IFTft>0PRIMT3](L»i4, "CREDIT flVfiILABLE°,:PRINTUSINBPU»;TfiiiPRI 

NT" "+51$+" 3"iTI6)»100;"r:XL=XL+l 

1320 RETURN 

1400 PRINT9)(L»64,H(3) , , :PRINTUS1NGPU»;S(3) ; iPRINT" "tHl (3) : XL=XL 

+1: RETURN 

Army recruitment. 

1500 CLS!60SUB3400il(L=2:A=42:BQSUB4100:PRlNT3192,CD«+" ARtIV RECR 

UlTI1ENT."!XL=A:A=6l!G0SUB4100iIFHS=10PRINT3337,'PRESENT"iELSEPRI 

NTS336,"LAST YEAR"; 

1510 PRINTTAB(31)"REC0I1I1ENDED";TAB(52)"C0ST/I1AN"!PRINTPG«,:PRINT 

USINGPU»|P6;:PRINT,!PRINTUSlNGPU»;l1E(0)i:PRINTTAB(47)MS;SL*!)(L=7 

:A=45:60SUB4100!);L=KL+1:SOSUB1300!A=42:GOSUB4100:)(L=)1L+1 

1520 PRINTJXLt64, -HIGHNESS, HOW MANY "; :IFI1S<>12PRINT"ADDITI0NAL 

1530 PRINTPS»+DHJ+'HAVE"i:INPUTQ:AB=Q:IFQIMS>TA+TRTHEN)(NM!GOSLlE 

2290:GQT01520:ELSEIFB<OORQ<>ABSOSUB22SO!GOT01520:EL5EIFQ=OGOT015 

50 

1540 PRINTS(XL+l)«ii4,"COSTj";Q»flS;SL»+IS!GOSUB3400;IFIN="N"G0SLlB 

228OJG0TQ1520 

1550 TR=TR-B»NS!lFTR<OTHENTA=TA+TR:TB=TB+TR:TR=0 

15i0 IFMS=12PG=g:RETURN:ELSEP6=PG+Q!RETURN 

Land use and rents. 

1400 CLS:GOSUB3400:1(L=2:A=42!60SUB4100!PR]NT3192,"LAND USEs'iXL^ 

4:A=6l!G0SUB4100:PRINT3320,Hl,,!PRINT" ■+H2(0)," "+H2U)!PRINTTT 

»+"THIS YEAR", , :PRINTL1SIN6PU»!PF(0) | iPRINT, !PRINTUSINGFU$i4000-F 

F(0);PRINTTT$+"NEn YEAR",, 

1610 PRINTUSIN6PU*jPFi:PRlNT,:PRlNTUSIN6PU$;4000-PF!PRINT,'SEED 

REQUIRED! "iPFUjHl (2) !A=45!l(L=9:GQSUB4100:PRINT3M0,H2(2),,AV!)(L 

=11:A=42!GDSUB4100!S(2)=S(2)-PF«4 

1620 )!L-12:G0SUB2280!PRINT3XLt64, "ACCEPTED RENT: 25X OF "+TH»+" 

'+HD(3) + :S:G0SUB3400iT(l!=.25:lFIN="N"PRINT3():L+l)«i4,'HHAT '/. '+ 

DD$+"CHARSE"i!lNPUTT(l):AB=T(l)!lFAB<>T(l)60T0U20ELSET(l;=T!l)/ 

100 

1630 IFT(l)<0ORT(l)>lG0SUB228O:G0TO1620 

1640 IFT(l)>.25+3t(3-AM(6))/100riP=l1P+2!NV=l1V+l + (T(l)-.25)»20 

1650 RETURN 

1700 CLS!PU=3l!HD=HD(0)+HD(l)!60SUB3600il(L=2!A=42:BQSUB4100!XL=X 

L+2!GOSUB1200:A=45:GOSUB4100:XL=XL+1:GOSUB1400:BDSUB4100!XL=)(L+1 

! GQSUB4600: 1;L=XL+1 : A=42! 60SUB4 100; 60SUB3500! RETURN 

Harvest and population change. 

1800 TA=0:CLS:60SUB3600:HY=I1Y+1:(1A=100»FY:I1B=T(1HI1A!I1C=I1A-HB:IF 
HC<60HC=l1C+(60-l1C)/2:HB=HA-NC!PD=-(PFtl(60-NC)/60)):PV=PV-PD/20! 



nR=HR+2:(1P=t1P+2:G0T01B20 

1810 IFHR<2ANDt1P<2IFFF=4000PD=OELSEPD={4000-PF)/10ELSEIFI1P+l1R>3P 
D=FFt.04ELSEPD=PFI.03 

1820 MA=0:FR=FP+.25!PJ=S(3)».5»FY!D(3)=PJ;D(4)=AVtFY»150!Dl2)=«B 
«(PF-l12-l12(l))!PF(0)=FF:PF=PF+PD:IFPF)4OOOPV=(PF-4OO0)/5+PV:PF=4 
000 

1S30 1FD(3)+S(3)>12500THENDI3)=12500-S(3)ELSEIFD!3)<1THEND(3)=0! 
S(3)=0 

1840 !IL=2:A=42:GOSUB4100!PR1NT3]92,TH$+" "+HD(3)+" HAS "+Y(AH(61 
!!XL=4iA=61:BOSUB4100!FORl(=2T04:PRINT3(l(+3)«64,H{l(),,!PRINTUSING 
PU»;D!X!!:IFX=3PRINT" LAMBB'ELSEPRINT" "+H1(X) 
1850 NEXT: XL=8:A=45!G0SUB4100!PRINT3576, 'NEW "+T$+"S"!FDRX=2T04i 
5(X)=S(X1+C{X);FRINT}(X+8)»64,TT$+H(X),,!PRINTUSIN6PU$|S(X);!FRI 
NT" "+Hl(X):NEXT:S(l)=PFt4!S(0)=S(2)-S(l)!XL=13!A=42!GDSUB4100:6 
OSLIB:.500: RETURN 

1900 GQSUB1100:CLS:HD=HDi3)+HD(6)!GOSUB3900!CLS:PU=31:60SUB3600! 
XL=2:fi=42:G0SUB4100:PRINT3192.CDt+"ANNUAL SUMMARY OF CAPITAL CRI 
NES.' 

1910 XL=4!A=61i60SUB410n!PRINT3320, "CRIME",," NUMBER", "AFPREHEN 
DEB"! A=5S:XL=6:BOSUB4100:PR1NT3448, "FARMS" 
1920 PR!NTS512,TT$+PLt,,:PRINTUSINGPU»|MZi:FRINT,:PRINTUSINBPUJ| 
M2'IO/;!PRINT,TTi+"WITH FATALITES",!PRIHTUSINBPU*;!1Xi:PRINT,iPRIN 
TUSINGPUJjMXIO) 

1930 XL=10:fi=45:6GSUB4100:PRINT3704,HI3)+" STOLEN",, iPRINTUSINSP 
UJiHW;! PRINT, !PRINTUSINGPU!(;«W(0)!XL=I2:A=42:60SUB4100:GOSUB3500 
! RETURN 

Disaster and relief. 

2000 Q=(M2+ftZ(l))«50!lFQ>S(2)IN="N":60T02010:ELSE6QSUB3700iPRINT 
3512,TT?+TH»+" "+H1+" THAT WERE "+PLJ+° NEED "+H(2)+" TO SURVIVE 
UNTIL "+TH$+" NEXT »+HD(3)+" (";B;+H1 (2)+")."+DW$+"SUPPLY IT" 
+YN!6GSUB3400 

2010 IFIN<>"Y"PF=PF-M2-H2(l)!FV=PV+!n2+M2{l))/5!RETURN 
2020 S(2J=3(2:i-Q!HP=MP-l!MR=MR-l:IFMP<0MP=0 
2030 IFMR<OMR=0 
2040 RETURN 

Merchant. 

2100 FDRXM=2T04!CLS!PRINTYH+": "+TH$+" "+H(Xn)+" MERCHANT. ":PRIN 

T'HERE ARE YOUR RECORDS, SHOULD YOU WISH TO CONSULT THEM."!A=42! 

?L=2:60SUB4100!XL=XL+2!CNXH-160SUB1200, 1400,4600 

2110 A=45!GOSUB4100:XL=XL+1:GOSUB1300:XL=XL+1:A=42:BOSUB4100!XL= 

XL+2 

2120 A=128!FORXN=OTOl!lFS(XM)>OORXN=160SLlB2310;IFIN="Y"GOT02150 

2130 NEXTXN!NEXT!G0SUB2280!PRINT3(XL+l)t64,"HAVE YOU FURTHER BUS 

INESS WITH THE MERCHANTS HIGHNESS (Y/N)?":GOSUB3400!lFIN="Y"BOTO 
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2100 

2 HO RETURN 

2150 QNl(«-160SUB21iO,21BO,2200:GQT02220 

2140 Ffi=FP:IFXN=lFQ=FR 

2170 RETURN 

2180 MQ=l/FY»15:FQ=l1G:lF)!N=l«Q=t1Q+(l1Q».25):FQ=l1Q 

2190 RETURN 

2200 MQ=l/Fy«10:FQ=BQ:IFXN=lNQ=t18+(l1fl».15)!FQ=NQ 

2210 RETURN 

2220 FRINT3)!Lt64,YH+", THE PRICE lS";FQiCP$+HI1*()(t1)+».":)!L=XL+I 

2230 FRINTJ)(LtA4,"H0M ilftNY "+H1(XI1)+" MIGHT "+YH+" "+DA»(XN);:IN 

PUTQ!lFQ>OftNDQ<25eOT02300ELSEIFQ<OGOSUB4100:BOT02230:ELSEIFQ=OXL 

=);L-1:BOSUB2280:BQT02130!ELSEIFQ>S(XH)ANDXN=06DSUB22VO:60T02230 

2240 XX=Fg>Q/100:IFXX>32500.9PRINTJ(XL+l)«64,VH+", HE CAN'T HAND 

LE THAT LARGE A TRANSACTI0N"!BQSUB3B00!60SUB2280:6OT02230 

2250 PP=XX!lFXN=lPP=-PP!Q=-Q:IFPP+TR<OXL=XL-2!60SUB2290!G0T02230 

2260 PRINTi(XL+l)t64,TH»+" ■+T»+" IS"iABSiPP!;SL»+IS:60SUB3400 : 

IFIN="N"BDSUB2280:GOTQ2230 

2270 XL=XL-l:XN=l!TR=TR+PP:S(Xm=S(X«)-Q:IFS(>:m<lS(XI1)=0;60T021 

30:ELSEGOT02130 

2280 PRINTJXLt44,CHR$(31):RETURN 

2290 PRINT8(XL+2)»64,"I BELIEVE THAT EXCEEDS «+YH+°'S "+HD{XN+1) 

!G03UB38005S0SUB22e0:RETURN 

2300 PRINT3(XL+2)t44,YH+", WE CAN'T DEAL IN SO SHALL A BUANTITY. 

"!F0RX0=0T0600!NEXTX0:60SUB2280:60T02230 

2310 PRINT8XLI64,DN»+DA$!XN)+H(XI1)+" ■+YH+YN:60SUB3400:BOSUB2280 

: RETURN 

Banker. 

2400 CLS!60SUB3400:XL=2:A=42:BOSUB4100:XL=3:PRINT8XL«44,"TREASUR 

Y"+RP»+":':XL=4:A=61:B0SUB410O:XL=5:XN=-T(6l«TB!TB=TB-XN:S0SUE13 

00:A=42!6QSLIB4100:XL=XL+2:PP=XL!lFTB=060T02480 

2410 IFXN<260TQ2430 

2420 PRINT3XLt64, "INTEREST DUE!"!XN;SLt+".":XL=XL+l 

2430 PRINT3XLtA4,YH+", HON I1UCH'+D«$+"PAY ON THE DEBT'isINPUTQiA 

B=Q:IFS>TRTHENXN=1:G0SUB2290!XL=PP:G0T02410!ELSEIFQ<00RAB<>QGQSU 

B2280:60T02430 

2440 IFa>-TBPRINT"THAT EXCEEDS YOUR DEBT, "+YH:F0RXA=1T0600!NEXT 

XA:XL=PP:6OSUB22B0:60Ta241O 

2450 TR=TR-B ! TB=TB+B : I FQ< XNTHENI1H=I1I1+ 1 ELSEflfl=l1l1-l 

2460 IFNM<0THENI1M=O 

2470 IFNIDORETURN 

2480 XL=PF:S0SUB22S0:TA=PF+TB:IFTA<250S0TQ2510ELSEPRINT!XL«o4,YH 

+■, THE BANKER OFFERS TO ";:IFTB<OPRINT"REFINANCE YOUR DEBT i';T 

l6.)»100+l;"r,"AND EXTEND";TA;SL$+" OF CREDIT ON THE SANE TERMS. 

n 

2490 IFTB>-lXX=AA/4:T(6)=XX/100:PRINT"EXTEND»;TAiSL«,«OF CREDIT 



3'iT(6)tlOO+li"Z. ■; 

2500 PRINTDD$+"ACCEPT'+YN!G0SUB3400:lFIN='Y"T16)=T(t)+.0l!RETURN 
2510 TA=Oj RETURN 



Riot. 



2600 IFHV<20RPB=>PF/100li9+HT)THEN«A=0;RETURN:ELS£At="fiIOT •■. 

A$=A$+A»+A$+A$:CLS:PRINTCHR»(23):F0RXL=0T015iPRINTJXL»64,A»:NEXT 

XL! CLS: G0SUB3800; 60SUB3700: MA=I1T» 10+PV: t1P=NP-l : AP=HA/24 

2610 IFAP<2AP=2 

2620 PF=PF-NA:PG=PB-AP:PRINTJ515,AP!P6»+" AND"; NAi "FARMERS MERE 

KILLED IN THE RIOTING! "iGOSUBSSOOrRETURN 

Outcome of the season's military activities. 

2700 G0SUB3700:PRINTJ512,"THE ARMY IS READY TO INVADE ARCE! ■+DK 
t+"HAVE IT S0"+YN:G0SUB3400:IFIN='N"60SUB29O0:RETURN 
2710 CLS:G0SUB380C:B0SUB3800iIFAW(7)>lIFPG>ME(l)+MEANDAH(0)+AW(l 
)=2ANDFR=10RHH>2ANDP6>HE(1)+«EANDAW(0)+A«!1)=20RHH>5ANDA«(0)=1AN 
DP6)1,UNE(1)0RMH>8ANDP6>1.1»HE(1)60T03300 
2720 !1E(2.1=10»(AM(3)+AW(4)+1.5lFR+AW(7)/2)»PB/nEn)-RND{15):IFHE 
{2)<4NE(2I=5+RND(10) 

2730 P6(1I=(ME(1)+PG)/12-HE!2):G0SUB3700!PRINTJ522,'WE KILLED" jM 
E(2)i"AND L0ST";PG(l)jPG$:G0SUB3500!RETURN 
2800 IFMH<6GOSUB3000 

2810 Q=RND(4)+l:ME(2)=QI(3IA«(3)+AW(4)+AK!7)+3tFR+2)!F0RX=lT0B:P 
G(1)=PG(1)+RND(10):NEXT!GOSUB3700:PRINTJ512,"WE MADE' jSj "RAIDS I 
MTO ARCE. ME KILLED"iME(2)!"AND L0ST"iP6ll)iP6»!6OSUB3500:RETUR 
N 

2900 GQSUB3000:Q=3+RND(AM!6)+l!:FORX=lTOQ:ME(2)=HE(2)+2.5t(5-AM( 
6)):NEXT:ME(2)=ME(2)-MT-MR!P6(l)^(MT+MR!t2»Q+RND(10):HZ(l)=Qt(16 
tAW{6))!6QSUB3700:PRINTi515,"ME SUFFERED';Qi "RAIDS. HE KILLED"; 
I1E(2);"AND LQST";PG(1);PB»+"." 

2910 PRINT"THEIR "+PG$+" "+PLJiMZ(l);Hl+". "sBOSUBSSOOiRETURN 
3000 IFAW(3)+AM(4)=2ANDMT>5ANDPG<PF/10G0SUB37OO!PRINT8517,"VICl 
HAS BEEN SUCCESSFULLY INVADED! YOU ARE OVERTHRO«N"!FORX=1T015:G 
0SUB3800! NEXT: CLS! END: ELSERETURN 

3100 CL3!F0RXQ=lT0150-(100tA«(3+MB!):A=RND(1000)!PRINT8A,A«:NEXT 
XO:CLS:PRINTCHR»{23)!PRINT8462,HDinB+4)+RP$:BOSUB3800!GOSUB3700! 
RETURN 

Rebeiiion. 

3200 CLS:HD=" REBELLiaN":GOSUB3900!60SUB3220!XL=0:A=:92:CLS:GOSU 

B4IOO!GOSUB4500:60SUB4200!GOSUB4200:60SUB4100!A=46!XL=13!FORX=1T 

014!GOSUB410O:GOSUB322O:XL=XL-l!NEXT 

3210 CLS:HD="YOU ARE DEPOSED! ":PU=479!60SUB36OO:F0RX=lT04:G0SUB3 

800:NEXT:CLSiEND 





PHONE (5171 754-6320 

SMALL BUSINESS CONCEPTS 

DEPT, 101 

4710 BAYLOR CT. 

SAGINAW, Ml. 48604 



Become a Monday Night Quarterback 



NOW YOU CAN WITH THESE Z NEW FOOTBALL GAMES FOR THE TRS-80 MODEL I AND III . 
DICTDH. BOTH SELL FOR S19.95 EACH. 



. ARMCHAIR QUARTERBACK AND NFLPRO- 



PRODICTOR PREDICTS NFL GAME SCORES AND POINT 
SPREADS. IT SHOWS STANDINGS AND TEAM RECORDS 
AND MORE. IT WAS MORE ACCURATE LAST YEAR THAN 
JIMMY THE GREEK FOR PLAYOFFS AND SUPERBOWL TOOl 



ARMCHAIR OUARTEftBACK IS A HEAD TO HEAD FOOTBALL 
GAME SIMULATING THE REAL THING. YOU AND YOUR OP- 
PONENT CONTROL THE OFFENSE AND DEFENSE AND CALL 
ALL THE PLAYS SOUND EFFECTS TOO! 



TO ORDER INDICATE WHICH GAMEISI AND SEND 919.95 PER GAME. WE PAY POSTAGE. PLEASE SPECIFY MODEL I (CASSETTE ONLYI OH 
MODEL III DISK OB CASSETTE VERSION. CASSETTE REQUIRES 16K. DISK REQUIRES 32K. FOR FREE INFORMATION OR TO ORDER CALL 
OR WRITE TODAY! 



JOIN THE TEAM! 
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3220 F0RX0=lTQ3:NEnX0:RETURN 

3300 CLBiPRlNTCHR«(23)!HD="VICIVICTQR10US";F0RnV=lT05:A0=2:AP=28 

!F0Rl(=lTO13!Y=HID$(HD.l(.l)!PRIN7"["jTAB(A0)Y)TftB(AP)Y;TA8(30)"[" 

!ftD=A0+l!AP=AP-l:NEXTJ:PRINT"["iTAB(AQ)"S"iTAB(30)"[":NEXT!PRINT 

!FORX=lT03l!PRINT"+'!:NEXT 

3310 GOBUB3800:CLSiXL=OiA=86!60SUE4)00!GOSUB4500!FORX=OT05:60SUB 

42O0:NEXT!F0RX=lT09l!READA0,AP:PQKEA0,AP:NEXT;BOSUB4100:HD="ANNC 

■+STR$(!1Y)!PRINT395-lLEN(HD)/2),HDi 

3320 PRINT3909/L0NB MAY YOU RULE, SOVEREIGN OF CESSAI":F0RX=1T0 

10!BQSUB3800:NEXT:CLSjEND 

3400 IN=INKEY»: IFNOTIN="Y"ANDNOTIN="N"GOT03400 

3410 RETURN 

3500 PRINTS900, 'PLEASE INDICATE «HEN YOU WISH TO CONTINUE "i+YH 

3510 IN=INKEY$:IFIN=""B0T03510 

3520 RETURN 

3600 PS=LENiHD):PT=PLI-PS:FORX=lTOPS!A$=MIDt<HD,X,l):PRINT}PT,A*: 

FT=PT+2!NEXT!RETURN 

3700 CLS:XL=2:A=42:60SUB4100!XL=4iA=Al!BOSUB4100!XL=n:60SUB4100 

:XL=13!A=42:G0SUB4100!PRINT8384,YH+",":RETURN 

3800 FORXO=0T02OO:NEXTXO! RETURN 

3900 PRINTCHRtl23);PRINT3442,HD:GOSUB3800!60SUB3BOO:RETURN 

4000 CLS:PRINTCHR*(2J):PRINT3344,TH«:PRINT34i2,HD!PRINTS594,"IS 

CLOSED" : HD=" " : G0SUB3800! RETURN 

4100 A»=STRINB$(64,CHR»(A))!PRINT3XLtM,At:A»="":RETURN 

4200 P0KE15424+(XLt44),A:P0KE15487+{XLt64),A:XL=XL+l!RETURN 

4300 CLS!XL=0:A=188!GOSUB4]00:A=19l!60SUB4500:XK=15895:FORX=lT04 

!P0KEXK,136:P0KEX!(+l,157:IFFR=0P0KEXK+2,47 

4310 XK=XK+4iNEXT:G0SUB4200!XK=159i0:F0RX=lT04!P0KEXK,129!XK=XK+ 

4:NEXT: IFAW(7) )1THENA0=143ELSEAQ=191 

4320 BOSUB4200!FORX=OT047STEP47!POKE16006+X,189:PDKE1A007+X,ia9: 

P0KEliO0E+X,AO:P0KEli009+X,19O:P0KEli010+X,190:NEXT:FORX=lT04;GO 

SUB4200!NEXT!A=143!BOSUB4100:80SUB3500:RETURN 

4400 CLS!XL=0:A=86!60SUB4100:60SUB4500!FORX=1T03:GOSUB4200!NEXT! 

G0SUB4100:RETURN 

4500 G0SUB4200!P0KE15535,U8:P0KE1553A,42:P0KE15537,148!GQSUB42O 

0!PDi(E155i7,46:POKE155A9,43:POKE15571,46:PQKE15iOO,191:GOSUB4200 

!POK£15A31,159:POKE15iii32,14O:P0KE15433,143!POKE15634,140:POKE156 

35,175 

4510 P0KE15AA3,14O:POKE15664,179:P0KE156A5,14O:60SUB4200!POKE157 

28,19l!60SUB4200iPOKE15792,191:60SUB4200:RETURN 

4600 PRINTSXL»A4,H(4I , , :PRINTUSINGPU$jS(4) ; :PRINT" "+H1 (4) ! :<L=XL 

+1: RETURN 

Data statements for victory graphic. 

4700 DATA15773,40, 15774, 149, 15828, 168, 15829,95, 15830, 188, 15831, 9 
5,15832,188,15833,95,15834,188,15835,95,15836,188,15837,95,15838 
, 149, 15892, 170, 15893, 191 , 15894, 191, 15895, 191 , 15896,191, 15897, 191 
, 1589B, 191, 15899, 191, 15900, 191, 15901, 191, 15902, 149 
4710 DATA15956, 170, 15957,43, 15958, 143, 15960, 143, 15961,43, 15962, 1 
43,15964,143,15965,43,15966,191,15967,189,15968,189,15969,189,15 
970, 189, 15971 , 189, 15972, 189, 15973, 189, 15974, 189, 15975, 189, 15976, 
149 

4720 DATA16020, 170, 16021, 191, 16022, 179, 16023, 191, 16024, 179, 16025 
,191,16026,179,16027,191,16028,179,16029,191,16030,191,16031,190 
, 16032, 191, 16033, 190, 16034, 191 , 16035, 190, 16036, 191 , 16037, 190, 160 
38,190,16039,191,16040,149 

4730 DATA16084, 138, 16065, 141 , 16086, 143, 16087, 142, 16088, 141, 16089 
, 143, 16090, 142, 16091, 141, 16092, 143, 16093, 142, 16094, 143, 16095, 143 
, 16094, 143, 16097,35, 16098,35, 14099,35, 16100, 143, 16101, 143, 16102, 
143,16103,143,16104,133 
4740 DATA15427, 42, 15484, 42, 15747,42, 15804, 42, 14067, 42, 16124, 42 © 



EXPAND YOUR 
TRS-80 CAPABILITIES 




THE SHADOW 

' What secrets lurk deep within the heart of 

your microprocessor? Only THE SHADOW 

knows. It is a machine language program which 

disassembles and examines program instructions 

from any part of your computer memory. THE 

SHADOW allows you to single-step through your 

'TRS-80 Model I or III ROM. Disk only, specify 

Model I or Model III. 

SUPERKEYS 

With this utility, commonly used BASIC functions 

and statements can be entered with a single 

keystroke. Any of 225 characters can be designated 

into every key. SUPERKEYS also offers a "relocate" 

feature which allows for single-line relocation and 

renumbering. Disk for Model III only. 

AGS EXPANSION PACKAGE 1 

Two separate programs are included in this 

expansion package which help you get more out of 

your 'TRS-80. VARKEEP is a variable-passing utility 

which can SAVE variable values and pass them to 

other programs, allowing you to perform true 

program chaining. SCREENPACKER is a powerful 

graphics utility which allows you to "draw" images, 

produce large graphic letters, and SAVE them on 

disks. Disk only, specify Model I or Model III. 

Now available at your local software retailer, or call 

1-800/348-8558 to order (Indiana residents, call 

1-219/879-4693.) MasterCard and VISA accepted. 

Advanced 

I Operating 

Systems 

450 St. John Road 
Michigan City, IN 46360 



66 January 1982 



SoftSide 



A O D 

O S S O R 

R W R D W A 

R A S 

A W R A W A 

A D A D A R 



A S O 

R O W A R 

R R S O A R 
5 R R R 

D W A R 



D W D 

R O W S W O 

WARSAW 
W D R W 

S W D A D R 



A D°A 



A 
S 



W R S A 
W R D A R W 



. A°S I W^D & S*A Kf A^W i A S% 'h V r\ ^ ol O^D 

A. ^.^'^''WRWRWRWRODRAWARROWOODSORROW 

)y.^«R..P.^i^RSDRAWSARROWSWORDARROWARSAW 

SPJl^X^'^RSWARDSWORDWARSARAAWSAWDRAWWARDWARWRASORD 

WASARSWORDWARWORDDRAWSARAWARRAWRARARAWARSAWSWORDRAWDRAWS 
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fVord Wars is a word game for an 
Apple with Applesoft and 16K RAM. 

Apple owners now have the oppor- 
tunity to join the vocabulary battle, 
with this translation of Rowland Ar- 
cher's original program which was 
pubHshed last July. The object is sim- 
ple enough: to form as many words as 
possible, in a limited time, from a 
string of letters generated by the com- 
puter. One person may play alone, or 
as many as six individuals (or even 
groups) may compete against one 
another. 

From the jumble of 13 letters 
displayed, you must type in as many 
three- through eight-letter words as 
you can find in about three minutes. 
However, a maximum of five words of 
each length is allowed, and you'll un- 
doubtedly find yourself pushing your 
limit on the shorter words much more 
quickly than the longer ones. Scoring is 
based on word length. 

At the end of a round, all players' 
words are subject to challenge by the 
other players. If an invalid word is 
found (a dictionary should be used for 
arbitration), a substantial penalty is 
given. Five rounds constitute a tourna- 
ment, so that if you really bomb out on 



one set of letters, you can always hope 
for a comeback in a subsequent round. 
Complete instructions for play and 
information on scoring are given in the 
program upon request (Hnes 1500- 
1940). Enjoy this challenging 
game of vocabulary and quick- 
thinking skills. 

Variables 

A, A$: Input character. 
AD: Increment added to clock during 
input. 

BN, BN(n): Bonus points added to 
each word. 
BP: Bonus points. 
BW: Bonus flag. 
BZ: Buzzer. 
CL: Clock. 
CP: Current player. 
FS(n): Final scores. 
GN: Game number. 
GW$: Letters for roll. 
H: Cursor horizontal position. 
I, J, Jl, J2, K: General loop 
counters. 

L: ASCII value of letters. 
L$: Chosen letter in roll, and letter 
used in validation. 
LW: Length of word. 
M: Random number used to select 
SoftSide 



letters in roll. 

M$: Holds various messages to be 

printed. 

NL: Number of letters. 

NM$(n): Players' names. 

NP: Number of players. 

NS$(n): Players' names in possessive 

form. 

NW(n): Number of word. 

OS(n): Tab stops for printing words. 

PCS, PD$: Dummy characters. 

PN: Point reduction due to error. 

QP: "Q" flag. 

RL$: Final roll of letters. 

S: Address to PEEK/POKE for 

speaker click. 

SB: Score to beat. 

SC, SC(n): Scores. 

T, T$: Temporary variables. 

TI: Ticks of the clock. 

TN$(n): Players' names (temporary). 

TS(n): Temporary scores. 

TS$: Used in print format. 

V: Cursor vertical position. 

W$: Player's word. 

WA(n): Array holding count of 

letters in roll. 

WD$(n): Words formed by player in 

current game. 

WW(n): Array used in word 

validation. 

X: Delay loop counter. 
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The most important book 
ever published 
for the Apple. 



The most comprehensive description of 
Apple II firmware and hardware ever 
published — all in one place. 



What's Where in the Apple? 

• Guides you — with a numerical Atlas and 
an alphabetical Gazetteer — to over 
2,000 memory locations of PEEKS, 
POKES, and CALLs. 

• Gives names and locations of various 
Monitor, DOS, integer BASIC, and 
Applesoft routines — and tells you what 
they're used for. 

• Helps BASIC users to speed up their 
programs. 

• Enables assembly language programmers 
to simplify coding and interfacing. 

All Apple users will find this book helpful in 
understanding their machine, and essential 
for mastering it! 

Ask for It at your computer store 




City State Zip Signature 

MICRO INK, Inc., 34 Chelmsford Street, P.O. Box 6502, Chelmsford, MA 01824 

Apple is a registered trademark ot Apple Computer. Inc. 
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» APPLESOFT BASIC $ 

♦ 'HORD MARS' $ 

« AUTHOR: ROWLAND ARCHER $ 

» TRANSL: BRUCE HUSCOLINO $ 

» (C) 1982 SOFTSIDE » 



10 HDUE :V = 12:H = 10: SOSUB 10 

0: PRINT "PRESS ANY KEY TO S 

TART" 
15 POKE - liii368,0 
20 IF PEEK ( - 16384) < 128 OR 

PEEK ( - 16384) > 255 THEN 

I = RND (1): GOTO 20 
25 POKE - 16368,0 
90 S = - 16336: GOTO 500 

Subroutine to position cursor. 

100 HTAB H: VTAB V: RETURN 
Delay loop subroutine. 

105 FOR X = 1 TO 500: NEXT X: RETURN 

Subroutine to print board verticals. 

110 FOR V = 15 TO 20: GOSUB 100: 
INVERSE : PRINT " ": NEXT V 
: NORMAL : PRINT : RETURN 

Subroutine to erase a line. 

115 FOR H = 1 TO 40: GOSUB 100: PRINT 
" ■: NEXT H: RETURN 



Decrement clock, print time 
remaining; checl( for 60-second 
warning, and buzz speaker If It's 
time. 



120 CL = CL - 1:TI = 0:V = 1:H = 

37: GOSUB 100: PRINT ' ": GOSUB 
100: PRINT CL 

125 IF CL = 60 THEN V = 9:H = 10 
: FOR I = 1 TO 50: GOSUB 135 
: NEXT I: GOSUB 100: PRINT " 
--60 SECOND WARNING -": GOSUB 
105: GOSUB 115:TI = 30 

130 V = 7:H = 20 + LEN (H»): RETURN 



Subroutine to buzz speaker. 



GAMENUMBER: 1 



TIME LEFT 164 



LETTERS: 



0ESE01SBLSKUP- 



YOUR WORD: 



NANCY'S WORD 



SCORE: 105 




135 BZ = PEEK (S) + PEEK (S): RETURN 



Print the message contained in IVI$ 
on the screen, pause, and erase it. 



140 V = 9: GOSUB 100: PRINT M$: GOSUB 
105: GOSUB 105: GOSUB 115:V = 
7: GOSUB 115: RETURN 

Subroutine to draw the board on the 
screen. 

145 H = 1: GOSUB 110:H = 5: GOSUB 
110:H = 10: GOSUB 110:H = 16 
! GOSUB 110:H = 23: GOSUB 11 
0:H = 31: GOSUB 110:H = 40: GOSUB 
110 

150 V = 21: INVERSE : FOR H = 1 TO 
40: GOSUB 100: PRINT " ": NEXT 
H: NORMAL : RETURN 



Subroutine to display a message to 
clear the area. 



155 V = 7:H = 4: GOSUB 100: PRINT 
"IT'S ";NS$(CP);" TURN. ..CLE 
AR THE AREA!" 

160 V = 23:H = 8: GOSUB 100: PRINT 
"PRESS ";: FLASH : PRINT "<R 
ETURN)";: NORMAL : PRINT " U 
HEN READY": RETURN 

165 H = 7:V = 23; GOSUB 100: PRINT 
"PRESS <RETURN> TO CONTINUE" 



170 POKE - 16368,0 

175 IF PEEK ( - 16384) < > 141 

THEN 175 
180 POKE - 16368,0: RETURN 



Pause for the player to press 
RETURN. 



185 V = 7:H = 8: GOSUB 100: PRINT 

"OK, ";N«t(CP)|" PRESS ";: FLASH 
: PRINT "<RETURN>";: NORMAL 
: PRINT : RETURN 



Generate the roll of letters from 
which to make words. If roll 
contains a Q, be sure it contains a 
U also (give the guy a break!). 



200 OF = 0:L$ = "":RL$ = "": FOR 

I = TO 25:WA(I) = 0:HW(I) = 

0: NEXT I 
205 FOR I = 1 TO NL:M = INT ( LEN 

(GWt) t RND (1) + 1): IF M = 
LEN !GH$) THEN M = H - 1 
210 li = MID$ (GW$,M,1):L = ASC 

(L$) - 65:RL« = RL$ + L$:WA( 

L) = HA(L) + 1 
215 IF L$ = "Q" THEN BP = 1 
220 NEXT I 

225 IF BP = THEN 245 
230 I = INT (NL I RND (1) + 1): 

IF I < 2 THEN I = 2 
235 IF I > 12 THEN I = 12 
240 L* = HID$ (RLt,I,l):L = ASC 
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(L$) - 65:WA(L) = WAIL) - 1: 


- 16368, 0:H = H + 1:TI = TI 


AND ROUND UP SOME nORE!":V = 


WAI20) = WA(20) + l:RLt = LEFT* 


+ AD:H$ = H$ + A$ 


V + 2:H = 1: GOSUB 105: GOTO 


(RL»,I - 1) + °U" + RIGHT* 


450 GOTO 390 


575 


(RLljNL - I) 


455 IF LEN IH») > THEN 795 


585 IF NP > 6 THEN V = V + 2:H = 


245 RETURN 


460 GOTO 390 


7: GOSUB 100: PRINT "I THINK 




465 IF H = 20 THEN 390 


I'D GET LOST TRYING" :V = V + 


Subroutine to print scores on the 


470 IF LEN (W$) = 1 THEN W$ = " 


l!H = 6: GOSUB 100: PRINT "T 


screen. 


": GOSUB 100: PRINT " ":H =■ 


REMEMBER ALL THOSE WORDS.. 




H - 1: GOSUB 100: GOTO 390 


.":V = V + 1:H = 4: BOSUB 10 


255 FOR I = TO NP - 2 


475 W» = LEFT* (W*, LEN (Wt) - 1 


0: PRINT "LET'S KEEP IT DOWN 


260 FOR J = I + 1 TO NP - 1 


): GOSUB 100: PRINT " ":H - 


TO SIX PLAYERS.": GOSUB 105 


265 IF TS(I) ) = TSiJ) THEN 285 


H - 1: GOSUB 100: GOTO 390 


:V = V + 2:H = Ir GOTO 575 




480 IF NP = 1 THEN tit = "tt ABAN 


590 DIM HDtlNP - 1,34) 


270 T = TS(Ii!T» = TN$(I) 


BONING THIS GAME tt":H = 7: GOSUB 


595 DIM NWINP - l,6),NMt(NP - 1) 


275 TS(I) = TS(J):TN»a! = TN$(J1 


140: POKE 34,0: HOME : GOTO 


,NW*(NP - l),TNt(NP - 1),FS( 


2B0 TS(J) = T!TN$(.]) = T$ 


1365 


NP - 1),SC(NP - 1),TS(NP'- 1 


235 NEXT J 


485 GOTO 390 


),BN(6),0S(6),WA(25),WW(25): 


290 NEXT I 


490 FOR H = 20 TO 20 + LEN (Wt) 


NL = 13 


295 V = 5:H = 12: GOSUB 100: PRINT 


: GOSUB 100: PRINT " ": NEXT 


600 HOME :V = 3:H = 10: FOR I = 


"NAME":H = 24: SDSUB 100: PRINT 


H:TI = TI + AD:H = 20: GOSUB 


1 TO NP 


"SCORE" :V = 7 


100:Mt = "": GOTO 390 


605 GOSUB 100: PRINT "WHAT'S PLA 


300 FOR I = TO NP - 1 




YER «"; STR* (I);"'S NAME":H 


305 H = 12: GOSUB 100: PRINT TN$i 


Title page and Initialization. 


= 18:V = V + 1: GOSUB 100: INPUT 


I):TS$(I) = STR$ (TSiI;):H = 




NHtd - 1):V = V + 2:H = 10 


29 - LEN !TS$iI}): GOSUB 10 


500 HOME :V = 5:H = 16: GOSUB 10 


610 NEXT I 


0: PRINT TS(I):TN*(I) = "":T 


0: PRINT "WORD WARS" 


615 FOR I = TO NP - 1: IF RIGHT* 


Sill r C:V = V + 1 


505 V = 9:H = 10: BOSUB 100: PRINT 


(NM*(I),1) = "S" THEN NStd) 


310 NEXT I 


"ORIGINAL TRS-80 PROGRAM" 


= NMtd) + «'": GOTO 625 


315 RETURN 


510 V = 10:H = 19: GOSUB 100: PRINT 


620 NStd) = NMtd) + "'S" 




"BY" 


625 NEXT I 




515 V = li:H = 13: GOSUB 100: PRINT 


630 PC* = "Ut»t»»":PD* = "#»#§# 


Principal input routine: Accepts and 
validates letters, and recognizes 


"ROWLAND ARCHER" 


»«#■ 


special characters. 


520 V = 14:H = 14: GOSUB 100: PRINT 


635 GWt = "AAAAAAAABBCCDDDDEEEEEE 




"APPLE VERSION" 


EEEEEEFF66GHHIIIIIIIIIJKLLLL 




525 V = 15:H = 19: GOSUB 100: PRINT 


HMNNNNNNOOOOOOOOPPQRRRRRRSSS 




"BY" 


STTTTTTUUUUVVHWXYYZ" 


385 V = 7!H = 20: POKE - 16368,0 


530 V = i6:H = 13: GOSUB 100: PRINT 


645 0S(0) = 2:0Sil) = 6:0S(2) = 1 


390 TI = TI + 1: IF TI > 180 THEN 


"BRUCE HUSCOLIND" 


1:0S(3) = 17:0S(4) = 24:0S(5 


GOSUB 120 


535 SOSUB 105 


) = 32 


395 IF CL - THEN GOSUB 105: FOR 


540 V = 21:H = 14: BOSUB 100: PRINT 


650 BN(0) = 0:BN(1) = 5: FOR I = 


J = 1 TO 50: GOSUB 135: NEXT 


"INSTRUCTIONS" 


2 TO 6:BN(I) = BNd - 1) t 2 


J: GOTO 1000 


545 V = 23:H = 12: GOSUB 100: PRINT 


: NEXT I 


400 GOSUB 100: FLASH : PRINT " " 


"PRESS' <Y> OR <N>" 


655 AD = 7:GN = 1 


: NORMAL :A = PEEK ( - 1638 


550 POKE - 16368,0 


660 BP = 1750 


4) 


555 IF PEEK ( - 163B4) < > 217 




405 IF A = < 128 THEN TI = TI + 


THEN 565 


Draw screen template. 


AD: GOTO 390 


560 POKE - 16368,0: GOTO 1500 




410 IF A = 141 THEN POKE - 163 


565 IF PEEK ( - 16384) < > 206 


700 HOME :V = 1:H = 1: GOSUB 100 


68,0: GOTO 455 


THEN 555 


: PRINT "GAME NUMBER: "jGN 


420 IF A = 136 THEN POKE - 163 


570 POKE - 16368,0: HOME :H = 1 


705 V = 1:H = 26: GOSUB 100: PRINT 


68,0: GOTO 465 


:V = 3 


"TIME LEFT: ° 


430 IF A = 155 THEN POKE - 163 


575 GOSUB 100: INPUT "HOW MANY P 


710 GOSUB 145 


68,0: GOTO 480 


EOPLE ARE PLAYING WORD WARS? 




440 IF A = 152 THEN POKE - 163 


";NP 




68,0: GOTO 490 
445 IF A > = 193 AND A < = 218 


580 IF NP < 1 THEN V = V + 2:H = 
10: GOSUB 100: PRINT "THAT'S 


Beginning of main game loop. 
Generate the roll of letters for this 


THEN A = A - 128: A$ = CHR$ 


NOT VERY HANY!':V = V + 1:H 


game and Initialize necessary 


(A): GOSUB 100: PRINT A(: POKE 


= 7: GOSUB 100: PRINT "TRY 


variables. 
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715 60SUB 200:SB = 


795 V = 9:H = 15: BOSUB 100: PRINT 


(Hi,8):Lil = B 


720 FOR CP = TO NP - 1 


"CHECKING..." 


880 SC = LH 1 10 


725 CL = 1B0:V = 1:H = 37: BOSUB 


800 FOR I = 1 TO LEN (N$)!L» = 


885 H = OS(LH - 3):V = 20 - NH: GOSUB 


100: PRINT CL: IF NP = 1 THEN 


HID$ (H$,I,1):L = ASC (L$) 


100: PRINT «:V = 9: GOSUB 1 


60SUB IBS: POKE 34,24: 60SUB 


- 65 


15:V = 7: SOSUB 115 


170: SOTO 735 


805 IF NA(L) = THEN B» = "II T 


890 BN = BN(LH - 3) 1 (NH + 1) 


730 60SUB 155: POKE 34,24: BOSUB 


HERE ARE NO " + LI + "S IN 


895 IF SC(CP) > BP THEN BN = BN + 


170 


THIS ROLL ir:H = 3: GOSUB 1 


BN 


735 SC(CP) = 


40: GOTO 780 


900 SC = SC + BN:SC(CP) = SC(CP) + 


740 V = 7: GOSUB 115:7 = 23: BOSUB 


810 IF HN(L) = THEN H» = "11 Y 


SC:y = 12:H = 23: GOSUB 100: 


115 


OUR HORD CONTAINS TOO NANY " 


PRINT " ": GOSUB 100: PRINT 


745 V = 3:H = 16: 60SUB 100: PRINT 


+ L» + "S ll":H = 3: GOSUB 


SC(CP) 


■LETTERS:" 


140: GOTO 780 


905 IF SC(CP) > BP AND BN = THEN 


750 H = 7: IF SN = 5 THEN H = 1 


815 WM(L) = NKL! - 1 


Nt = "II YOU'RE IN DOUBLE BO 


755 V = 5: BOSUB 100: FOR I = 1 TO 


820 NEXT I 


NUS TIKE ir:H = 4: SOSUB 14 


HL: PRINT NIDt !RL»,I,1);" 


825 T I = 30: LU = LEN («): IF LN 


0:n$ = "II ALL BONUS SCORES 


"j: NEXT I 


> 8 THEN LN = 8 


NOH DOUBLED ir:H = 3: GOSUB 


760 V = 11:H = 17 - LEN (NS*(CP) 


830 IF LM < 3 THEN N$ = "11 NORD 


140:H» = "II YOU GET 60 SECO 


) / 2: SOSUB 100: PRINT NSt( 


S MUST HAVE AT LEAST 3 LETTE 


NDS OF EXTRA TIHE ll'':H = 1: 


CP);" NORDS" 


RS ll":H = I: GOSUB 140: GOTO 


SOSUB 140:CL = CL + 60:BH = 


765 V = 12:H = 16: SOSUB 100: PRINT 


780 


- 1 


"SCORE: ■ 


835 IF NN(CP,HI - 3) = 5 THEN HI 


910 SOTO 780 


770 IF HP > 1 THEN V = 23:H = 10 


= -II YOU HAVE 5 HORDS OF T 


1000 POKE 34,2: HQHE 


: 60SUB 100: PRINT "SCORE TO 


HAT LENGTH ir:H = 2: GOSUB 


1005 IF CP = NP - 1 THEN POKE 3 


BEAT: "iSB 


140: GOTO 780 


4,0: SOTO 1100 


775 BN = 


840 NH = NNiCPjLK - 3) 


1010 CP = CP + 1: GOSUB 155:CP = 




845 IF NN = THEN 865 


CP - 1: GOSUB 145 




850 FOR J = 5 1 (LN - 3) TO 5 1 


1015 IF SC(CP) > SB THEN SB = SC 


Qat a word uaing tha Input routlna; 


!LN - 3) + NN - 1 


(CP) 


varify that It haa not baan playad 


bafora, haa at laaat thraa lattara, 


855 IF NDKCPjJ) < > N* THEN NEXT 


1020 NEXT CP 


and contalna only lattars In tha roll. 


J: GOTO 865 


1025 IF SC(CP) ) SB THEN SB = SC 


Alao chack numbar of worda of that 


860 H« = "II SORRY, YOU HAVE THAT 


(CP) 


langth. 


WORD ir:H = 5: GOSUB 140: GOTO 
780 
865 NH = N«(CP,LN - 3):NH(CP,LH - 


1035 NEXT CP 


7B0 FOR I = TO 25:HH(I) = Nftd 




): NEXT I 


3) = NH + 1 


List player's words on the screen for 


785 V = 7:H = 9: 60SUB 100: PRINT 


870 liD*iCP,5 1 (LN - 3) + NH) = H 


possible challenge by other players. 


"YOUR NORD:" 


% 




790 «$ = "": GOTO 385 


875 IF LEN («$) > 8 THEN HI = LEFT* 


1100 FOR I = TO NP - 1 



w 

A 
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D A R 
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A 
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R 
W 
W 
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w 
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D 
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D 
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WORDWARSWARDSWORDWARSARAAWSAWDRAWWARDWARWRASORD 
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1105 HOriE 


1250 FS(CP) = FS(CP) + SC(CP): HONE 


TOURNAMENT":V = 16:H = 12: GOSUB 


1110 V = 2sH = 17 - INT ( LEN (N 


1255 H = 6:V = 9: GOSUB 100: PRINT 


100: PRINT "PRESS <Q> TO QUI 


S$(I)) / 2): 60SUB 100: PRINT 


"HELL DONE "; NIK (0) ;"..." 


T": POKE - 16368,0 


NS»(I);" HORDS" 


1260 H = 6:V = 10: GOSUB 100: PRINT 


1370 IF PEEK ( - 16384) < > 14 


1115 K = 0:V = 4:J1 = 0:J2 = 4 


"VOU FINISHED HITH ";SC10>;* 


1 THEN 1380 


1120 FOR J = Jl TO J2:H = OS(K) 


POINTS" 


1375 POKE - 16368,0: POKE 34,0: 


1125 IF WD$(I,J) = "" THEN HD$(I 


1265 GOSUB 105 


HONE : GOTO 1390 


,J) = LEFT$ (PD*,K + 3) 


1270 H = 4:V = 12: GOSUB 100: PRINT 


1380 IF PEEK ( - 16384) < > 20 


1130 GOSUB 100: PRINT «D$(I,J):V 


"YOUR TOTAL SCORE IS NOH "jF 


9 THEN 1370 


= V + l! NEXT J 


S(CP);" POINTS" 


1385 POKE - 16368,0: POKE 34,0: 


1135 IF J > 29 THEN 1145 


1275 GOSUB 105 


HOME :V = 12:H = 1: GOSUB 1 


1140 K = K + 1:V = 4:J1 = Jl + 5: 


1280 IF BN < 5 THEN 1355 


00: PRINT "THANKS FOR PLAYIN 


J2 = J2 + 5: 60T0 1120 


1285 H = 10:V = 13: GOSUB 100: PRINT 


G - HOPE YOU HAD FUN!": GOSUB 


1145 H = 1:V = 10: BOSUB 100: PRINT 


"...AND THAT'S FINAL!" 


105: GOSUB 105: HOME : END 


"ANY OF THESE HORDS MAY NOH 


1290 GOSUB 105: GOTO 1365 


1390 FOR I = TO NP - 1:FS(I) = 


BE CHALLENGED": POKE 34, S 




0: NEXT I:NL = 13:GN = 1 


1150 H = 7:V = 12: GOSUB 100: PRINT 


List players In descending order of 


1395 FOR I = TO NP - 1: FOR J = 


"PRESS <C> TO CHALLENGE A HO 


tfieir scores for tfie previous game, 


TO 34:HD»(I,J) = "": NEXT 


RD° 


and then by tfieir cumulative scores 


J: FOR K = TO 6:NM(I,K) = 


1155 H = 19: V = 13: GOSUB 100: PRINT 


for tfie current tournament. 


0: NEXT K: NEXT I 


"OR" 




1400 GOTO 700 


1160 H = 6:V = 14: GOSUB 100: PRINT 






"PRESS <RETURN> TO CONTINUE 


1300 HOME :V = 3:H = 12: GOSUB 1 


Print instructions. 


PLAY" 


00: PRINT "SCORING FOR ROUND 




1165 POKE - 16368,0 


R 




1170 IF PEEK ( - 16384) < > 14 


1305 FOR I = TO NP - 1:FS(I) = 


1500 HOME : PRINT TAB! 14) 'INST 


1 THEN HBO 


FS(I) + SC(I):TS(I) = SC(I): 


RUCTIONS": PRINT 


1175 POKE - 16368,0: POKE 34,0: 


TNKI) = NM*(I): NEXT I 


1505 PRINT "THE OBJECT OF HORD H 


GOTO 1240 


1310 GOSUB 255 


ARS IS TO MAKE AS" 


1180 IF PEEK ( - 16384) < > 1? 


1315 IF GN = 5 THEN V = 15:H = 5 


1510 PRINT "MANY HORDS AS YOU CA 


5 THEN 1170 


: GOSUB 100: PRINT "PRESS <R 


N FROM A GROUP OF" 


1185 POKE - 16368,0: HOME 


ETURN) FOR FINAL SCORES": GOSUB 


1515 PRINT "LETTERS DISPLAYED ON 


1190 H = 3:V = 10: GOSUB 100: INPUT 


170: GOTO 1340 


THE SCREEN, HHILE" 


"TYPE IN THE CHALLENGED WORD 


1320 IF GN < 5 THEN V = 15:H = 2 


1520 PRINT "WORKING AGAINST A TI 


";W$ 


: GOSUB 100: PRINT "PRESS <R 


ME LIMIT OF ABOUT" 


1195 FOR J = TO 29 


ETURN) FOR CUMULATIVE SCORES 


1525 PRINT "THREE MINUTES.": PRINT 


1200 IF WDtd.J) = Ht THEN 1215 


"! GOSUB 170 


1530 PRINT "WORD WARS HAY BE PLA 


1205 NEXT i 


1325 HOME :V = 3:H = 12: GOSUB 1 


YED BY A SINGLE" 


1210 H = 5:V = 12: GOSUB 100: PRINT 


00: PRINT "CUMULATIVE SCORES 


1535 PRINT "PLAYER, COMPETING AG 


■THAT'S NOT ONE OF ";NS$(I); 


H 


AINST THE CLOCK, " 


" HORDS": GOTO 1235 


1330 FOR I = TO NP - 1:TS(I) = 


1540 PRINT "AND TRYING TO GET TH 


1215 LH = LEN (H$):WD$(I,J) = LEFT$ 


FS(I):TN$(I) = N«$(I): NEXT 


E HIGHEST POSSIBLE" 


(PC$,LH) 


I 


1545 PRINT "SCORE, OR BY UP TO S 


1220 PN = LW t 10 + 2 1 (BN(LH - 


1335 GOSUB 255: GOBUB 165: GOTO 


IX PEOPLE PLAYING" 


3) < 5) 


1355 


1550 PRINT -AGAINST THE CLOCK AN 


1225 H = 5:V = 12: GOSUB 100: PRINT 


1340 HOME :V = 3:H = 6: GOSUB 10 


D EACH OTHER.": PRINT 


"SORRY ";NI1$(I);"..." 


0: PRINT "FINAL SCORING FOR 


1555 PRINT "YOUR WORDS MUST CONT 


1230 H = B:V = 14: GOSUB 100: PRINT 


TOURNAMENT" 


AIN AT LEAST THREE" 


"...THAT'LL COST YOU "sPN;" 


1345 FOR I = TO NP - 1:TS(I) = 


1560 PRINT "LETTERS. THEY ARE 6 


POINTS":SC(I) = SC(I) - PN 


FS(I):TN$a) = NH»(I): NEXT 


ROUPED ON THE" 


1235 GOSUB 105: GOSUB 105: GOSUB 


I 


1565 PRINT "SCREEN ACCORDING TO 


105: POKE 34,0: HONE : GOTO 


1350 GOSUB 255: GOSUB 165: GOTO 


LENGTH. YOU CAN" 


1110 


1370 


1570 PRINT "MAKE UP TO FIVE HORD 


1240 NEXT I 


1355 GN = GN + 1: IF GN = 5 THEN 


S OF EACH LENGTH" 




NL = 20 


1575 PRINT "FROM THREE TO EIGHT 


Printout for single-player game. 


1360 GOSUB 165: GOTO 1395 


LETTERS." 




1365 V = 15:H = 1: GOSUB 100: PRINT 


1585 GOSUB 165 


1245 IF NP > 1 THEN 1300 


"PRESS <RETURN> FOR ANOTHER 


1600 HOME : PRINT TAB( 14) "INST 
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EED A DICTIONARY OR" 




ARE CHALLENGED AND" 


RUCTIONS": PRINT 


1725 PRINT "SOME OTHER MEANS OF 


1840 


PRINT "FOUND INVALID, YOU A 


1605 PRINT "NO PROPER NOUNS ARE 


ARBITRATION.": PRINT 




RE PENALIZED AT THE" 


ALLOHED, BUT" 


1730 PRINT "ALL PLAYERS ARE THEN 


1845 


PRINT "HIGHEST POSSIBLE SCO 


1610 PRINT "CONTRACTIONS, PLURAL 


RANKED ACCORDING" 




RE FOR A HORD OF' 


S, AND ALL PREFIXES" 


1735 PRINT "TO THEIR SCORE FOR T 


1850 


PRINT "THAT SIZE. THAT IS, 


1615 PRINT "AND SUFFIXES ARE FIN 


HIS GAME AND THEIR" 




THE BASE SCORE" 


E.': PRINT 


1740 PRINT "TOTAL SCORE SO FAR." 


1855 


PRINT "PLUS THE HIGHEST POS 


1620 PRINT "A GROUP OF FIVE 6AHE 


: PRINT 




SIBLE DOUBLE BONUS.": PRINT 


S IS CALLED A" 


1745 PRINT "A WORD ON SCORING. 


1860 


PRINT "HHEN ENTERING A HORD 


1625 PRINT "TOURNAHENT, IN THE 


THE BASIC SCORE FOR" 




, BACK-ARROH HILL" 


FIRST FOUR GAMES," 


1750 PRINT "A WORD IS 10 POINTS 


1865 


PRINT "ERASE THE LAST LETTE 


1630 PRINT "YOU MUST HAKE YOUR H 


TIMES THE NUMBER OF" 




R HHILE <CTRL-X>" 


ORDS FROH A ROLL OF" 


1755 PRINT "LETTERS IN THE WORD. 


1870 


PRINT "HILL ERASE THE ENTIR 


1635 PRINT "13 LETTERS. IN THE 


IN ADDITION, ft" 




E HORD. IF YOU ARE" 


LAST GAME OF THE" 


1760 PRINT "BONUS RANGING FROH 


1875 


PRINT "PLAYING ALONE, YOU C 


1640 PRINT "TOURNAMENT YOU HILL 


TO BOO POINTS IS" 




AN GET A NEH ROLL" 


HAVE 20 LETTERS TO" 


1765 PRINT "ADDED TO THE SCORE 


1680 


PRINT "BY PRESSING <ESC>" 


1645 PRINT "WORK WITH.": PRINT 


F EACH HQRD. THE" 


1885 


GOSUB 165 


1650 PRINT "IF THERE IS MORE THA 


1770 PRINT "MORE LETTERS IN A WO 


1900 


HOME : PRINT TAB( 14) "INST 


N ONE PLAYER, EACH" 


RD, AND THE MORE" 




RUCTIONS": PRINT 


1655 PRINT "GETS A THREE MINUTE 


1775 PRINT "HORDS OF THAT LENGTH 


1905 


PRINT "YOU MAY FIND IT FUN 


TURN WITH THE SAME" 


HHICH YOU HAVE, " 




AT PARTIES TO LET" 


1660 PRINT "SET OF LETTERS. NAT 


1730 PRINT "THE HIGHER THE BONUS 


1910 


PRINT "THO OR THREE PLAYERS 


URftLLY, THOSE WHO" 


u 




HORK TOGETHER AS A" 


1665 PRINT "HAVEN'T HAD THEIR TU 


1785 GOSUB 165 


1915 


PRINT "TEAM. AT ANY RATE.. 


RN YET SHOULD NOT" 


1800 HOME : PRINT TAB( 14) "INST 




B 


1670 PRINT "HATCH THE SCREEN HHI 


RUCTIONS": PRINT 


1920 V = 7:H = 16: GOSUB 100: FLASH 


LE OTHERS ARE" 


1805 PRINT "FINALLY, IF YOU GET 




: PRINT "HAVE FUN": NORMAL : 


1675 PRINT "MAKING THEIR WORDS. " 


MORE THAN 1750" 




PRINT 


1680 GOSUB 165 


1810 PRINT "POINTS IN A GAME, YO 


1925 V = 9:H = 6: GOSUB 100: PRINT 


1700 HOME : PRINT TAB( 14) "INST 


U GO INTO DOUBLE" 




"AND IMPROVE YOUR VOCABULARY 


RUCTIONS": PRINT 


1815 PRINT "BONUS MODE. THE BON 




1 n 


1705 PRINT "AFTER EACH PLAYER HA 


US FOR EACH" 


1930 H = 7:V = 23: GOSUB 100: PRINT | 


S HAD A TURN," 


1820 PRINT "ADDITIONAL WORD YOU 




"PRESS <RETURN> TO BEGIN PLA 


1710 PRINT "EVERYONE'S HORDS ARE 


MAKE IS DOUBLED." 




Y": POKE - 16368,0 


DISPLAYED IN TURN" 


1825 PRINT "YOU ALSO RECEIVE ANO 


1935 


IF PEEK ( - 16384) < > 14 


1715 PRINT "FOR POSSIBLE CHALLEN 


THER 60 SECONDS Or" 




1 THEN 1935 


6ES FROM THE OTHER" 


1830 PRINT "PLAYING TIME.": PRINT 


1940 


POKE - 16368,0: HOME : GOTO 


1720 PRINT "PLAYERS. YOU HILL N 


1835 PRINT "IF ANY OF YOUR WORDS 




570 Q 


^WAJ)SWaRQQBAV|£33ARAA£ 


3uWAB^>ALDBAWSU)WARSSWQ 


FtDW 


ABSlWASWABSAV^BAW 
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y^PPLE OIPTURE b/ William J. R/an 



Apple Capture is a Hi-Res color 
graphics game of deduction for two 
players, requiring Applesoft and 32K 
RAM. 

If you picked an Apple for your per- 
sonal computer, then you'll un- 
doubtedly enjoy this clever apple- 
pickin' game. Each player controls a 
worm (red or blue) which roams 
through an orchard looking for hidden 
apples. The 80 trees in the orchard are 
arranged in ten rows of eight trees, and 
the worms take turns moving among 
them. 

On your turn, use the keyboard to 
move your worm in any of eight direc- 
tions. The keys used are the ones sur- 
rounding the K key (U I O J L M , .), 
which will move the worm vertically, 
horizontally, or diagonally, corre- 
sponding to their physical arrangement 
on the keyboard. When you have 
reached the tree where you think the 
hidden apple is located, press the 
RETURN key. If your guess is right, 
74 January 1982 



your score is increased by one and the 
game continues with another hidden 
apple. The first player to find 15 ap- 
ples wins. 

Each time you try a tree which does 
not have the hidden apple, you'll 
receive a clue that will help you (and 
your opponent) the next time. You can 
get three different types of clues: 

1. One or more arrows pointing in 
the general direction of an apple. 

2. A number giving the minimum 
distance (in squares) between you and 
the apple. 

3 . A rain shower, indicating that this 
is not the right tree. 

Adding to the Hi-Res graphics 
delights of the game are various sounds 
to accompany your stroll (or is it wig- 
gle?) through the orchard. May your 
quest be a fruitful one! 

Variables 

A: ASCII value of input. 
A$: Answer input variable. 
SoftSide 



B: Good move flag. 

C: Column. 

CI: Column input. 

CL: Color to plot. 

DR: Direction to apple. 

DS: Distance to apple. 

LC(0): Apple column. 

LC(I): Player 1 column. 

LC(2): Player 2 column. 

LR(0): Apple row. 

LR(1): Player 1 row. 

LR(2): Player 2 row. 

N: Number to be plotted. 

P: Player number. 

R: Row. 

RI: Row input. 

RT: Direction (used to calculate 

rotation). 

S: Segments to plot for each number. 

Q, Z: General counters. 

X, Y: X and Y coordinates. 

XP: X coordinate to plot (offset from 

X by player number to produce 

different color). 

ZZ: Type of clue (1 = direction, 2 = 

distance, 3 = rain). 



♦ APPLESOFT BASIC $ 

$ 'APPLE CAPTURE' $ 

% AUTHOR! HILLIAH J. RYAN t 

% (C) 1982 SOFTSIDE $ 

t$$$t$$$$$$t($t$$$$$$$t$$$mt 

Main program. 

10 GOSUB 20000 

20 HOME : PRINT "DO YOU WANT INS 

TRUCTIONB?';: BET A$ 
30 IF A$ = "Y" THEN 60SUB 10000 
40 60SUB 2400 
50 LR(1) = IjLCd) = 1:LR(2) = 10 

!LC(2) = S: GOSUB 2600 
60 F = l!R = LR(P):C = LCIP): GOSUB 

IBOO: GOSUB 1200: GOSUB 2100 
70 P = 2:R = LR(P):C = LC(P): GOSUB 

1800: GOSUB 1200: GOSUB 2100 
80 P = INT ( RND (1) I 2 + 1) 
90 IF P = 1 THEN P = 2: GOTO 110 
100 P = 1 
110 GOSUB 2300 
120 GOSUB 2200 
130 R = LR(P):C = LC(P): GOSUB 18 

00 
140 IF B = 1 THEN 200 
150 CL = 0: GOSUB 1700 
160 R = RI:C = CI 
170 LR(P) = R:LC(P) = C: GOSUB 18 

00: GOSUB 1200 
180 GOTO 120 
190 IF A = 46 THEN CI = CI + 1:R 

I = RI + 1: GOTO 2270 
200 GOSUB 1900: GOSUB 2000 
210 IF DS = THEN 330 
220 ZZ = INT ( RND (1) » 2 + 1) 
230 IF RND (1) < .1 THEN ZZ = 3 

: GOTO 250 
240 CL = 3:R = LR(P):C = LC(P): GOSUB 

1800: GOSUB 1600 
250 ON ZZ GOTO 260,310,320 
260 N = DS: GOSUB 1800: CL = 0: GOSUB 

1300 
270 FOR Z = 1 TO 1000: NEXT Z 
280 R = LR(P):C = LC(P): GOSUB IB 

00 
290 CL = 3: GOSUB 1600: GOSUB 110 

0: GOSUB 1200 
300 GOTO 90 

310 RT = DR: GOSUB 1400: GOTO 270 
320 GOSUB 2500: GOTO 270 
330 SC(P) = SC(F) + 1 
340 GOSUB 1500 
350 GOSUB 2100 
360 IF SC(P) = 15 THEN 510 
370 R = LR(P)!C = LC(P) 
380 GOSUB 1800 




390 HCOLOR= 

400 IF X > THEN X = X - 2 
410 IF Y > THEN Y = Y - 2 
420 FOR Z = 1 TO 2000: NEXT Z 
430 FOR Z = TO 22: HPLDT Z + X 

,Y TO Z + X,Y + 22: NEXT Z 
440 R = LR(1):C = LC(l): GOSUB 18 

00: CL = 3: GOSUB 1600: GOSUB 

1100 
450 R = LR(2):C = LC(2)! GOSUB 18 

00:CL = 3: GOSUB 1600: GOSUB 

1100 
460 NP = P 
470 LR(1) = 1:LC(1) = 1:LR(2) = 1 

0:LC(2) = 8 
480 R = 1:C = 1: GOSUB 1800:P = 1 

: GOSUB 1200 
490 R = 10:C = 8: GOSUB 1800:P = 

2: GOSilB 1200 
500 GOSUB 2600: P = NP: GOTO 90 
510 FOR Z = 1 TO 2000: NEXT Z 
520 TEXT : HOME : VTAB 5: HTAB 1 

0: INVERSE : PRINT "THE HINN 

ER IS" 
530 IF P = 1 THEN A$ = "BLUE" 
540 IF P = 2 THEN A« = "RED" 
550 PRINT : HTAB 15: PRINT A«: PRINT 

: GOSUB 3200 
560 HTAB 5: PRINT "SCORE -- "; 
570 IF P = 1 THEN PRINT SCd); 
580 IF P = 2 THEN PRINT SC(2); 
590 PRINT ■ TO ";: IF P = 1 THEN 

PRINT SC(2) 
600 IF P = 2 THEN PRINT SCd) 



610 PRINT : PRINT : GOSUB 3100 
620 PRINT : PRINT "PLAY AGAIN (Y 

/N)?": GET A$! IF A$ = "Y" THEN 

40 
630 PRINT : PRINT : NORMAL : PRINT 

"BYE": END 

Draw apple tree. 

1100 HCOLOR= 1 

1140 HPLOT X + 3,Y + 2 TO X + 7, 

Y + 2: HPLOT X + 2,Y + 3 TO 
X + 8,Y + 3 

1150 FOR Z = 4 TO 8: HPLOT X + 1 
,Y + Z TO X + 9,Y + Z: NEXT 
Z 

1160 HPLOT X + 3,Y + 9 TO X + 7, 

Y + 9 

1165 GOSUB 2700 

1170 HCOLOR= 0: FOR Z = 4 TO 6: HPLOT 

X + Z,Y + 10 TO X + Z,Y + 17 

: NEXT Z 
1180 HPLOT X + 3,Y + 16 TO X + 7 

,Y + 16: HPLOT X + 2,Y + 17 TO 

X + 8,Y + 17 
1190 RETURN 

Draw worm. 

1200 HCOLOR= (P - 1) t 3 + 2:XP = 

X - P 
1240 HPLOT XP + 1B,Y + 1: HPLDT 

XP + 19, Y + 2 
1250 HPLOT XP + 1S,Y + 2 TO XP + 
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1B,Y + 4: HPLOT UP + 17, V + 
3 TO XP + 17,Y + 16i HPLOT X 
P + 16, Y + 4 TO XP + 16,Y * 
10 
I2fc0 HPLOT XP + 18, Y + 9 TO XP + 
1B,Y + 15: HPLOT XP + 19,Y + 

12 TO XP + 19,Y + 13 
12i)5 60SUB 2800 

1270 HPLOT XP + 13,Y + 11 TO XP + 
14, Y + 12: HPLOT XP + 12,Y + 
11 TO XP + 17, Y + 16: HPLOT 
XP + 11, Y + 11 TO XP + 16,Y + 
16 

1280 HPLOT XP + 11, Y + 12 TO XP + 
15,Y + 16: HPLOT XP + 11, Y + 

13 TO XP + 12,Y + 14 
1290 RETURN 

Draw number. 

1300 HC0LOR= CL 

1340 FOR Z = 1 TO 7:Q = S(N,Z): IF 
Q = THEN 1395 

1350 ON Q BOTO 1360,1365,1370,13 
75,1380,1385,1390 

1360 HPLOT X + 3,Y + 3 TO X + 15 
,Y + 3: HPLOT X + 4,Y + 4 TO 
X + 14, Y + 4: GOTO 1395 

1365 HPLOT X t 3,Y + 4 TO X + 3, 
Y + 9: HPLOT X + 4,Y + 5 TO 
X + 4,Y + 9; SOTO 1395 

1370 HPLOT X + 15,Y + 4 TO X + 1 
5,Y + 9: HPLOT X + 14, Y + 5 TO 
X + 14,Y + 9: GOTO 1395 

1375 HPLOT X + 5,Y + 9 TO X + 14 
,Y + 9: HPLOT X + 5,Y + 10 TO 
X + 14, Y + 10: 60T0 1395 

1380 HPLOT X + 3,Y + 10 TO X + 4 
,Y + 15: HPLOT X + 4,Y + 9 TO 
X + 4,Y + 14: GOTO 1395 

1385 HPLOT X + 14, Y + 9 TO X + 1 



4,Y + 14: HPLOT X + 15,Y + 9 

TO X + 15, Y + 15: GOTO 1395 

1390 HPLOT X + 4,Y + 14 TO X + 1 

4,Y + 14: HPLOT X + 3,Y + 15 

TO X + 15,Y + 15: GOTO 1395 

1395 NEXT Z 

1397 GOSUB 2900 

1399 RETURN 

Draw arrow. 

1400 SCALE= 1: ROT= (RT - 1) « 8 
: HCOLDR= 

1450 DRAH 1 AT X + 9,Y + 9 
1452 GOSUB 2900 
1460 RETURN 

Draw apple. 

1500 HCOLOR= 0: FOR Z = TO 20: 
HPLOT X + Z,Y TO X + Z,Y + 
20: NEXT Z 

1535 IF X > THEN X = X - 2 

1537 IF Y > THEN Y = Y - 2 

1540 HCOLOR= I: HPLOT X + 14,Y: HPLOT 

X + 13, Y + 1 TO X + 15, Y + 1 

: HPLOT X + 12,Y + 2 TO X + 

15, Y + 2: HPLOT X + 12,Y + 3 

TO X + 15, Y + 3 

1550 HPLOT X + 11, Y + 4 TO X + 1 
4,Y + 4: HPLOT X + 11, Y + 5 TO 
X + 13,Y + 5: HPLOT X + 11, Y 
+ 6 TO X + 12, Y + 6: HPLOT 
X + 4,Y + 6 TO X + 7,Y + 6: HPLOT 
X + 16, Y + 6 TO X + 20,Y + 6 
: HPLOT X + 17, Y + 5 TO X + 
19, Y + 5 

1560 HPLOT X + 2,Y + 7 TO X + 9, 
Y + 7: HPLOT X + 15,Y + 7 TO 
X + 21, Y + 7: HPLOT X + 1,Y + 
8 TO X + 21, Y + 8 

1570 HCOLOR= 5: HPLOT X,Y + 9 TO 



X + 20,Y + 9: HPLOT X,Y + 10 
TO X + 20, Y ♦ 10: HPLOT X,Y 
+ 11 TO X + 20,Y + 11: HPLOT 

X,Y + 12 TO X + 19,Y + 12 
1580 HCOLOR= 2: HPLOT X + 1,Y + 

13 TO X + 20, Y + 13: HPLOT X 
+ 1,Y + 14 TO X + 20, Y + 14 

: HPLOT X + + 1,Y + 15 TO X 
+ 20,Y + 15: HPLOT X + 2,Y + 

16 TO X + 21, Y + 16 

1590 HCOLOR= 6: HPLOT X + 2,Y + 

17 TO X + 21, Y + 17: HPLOT X 
+ 3,Y + 18 TO X + 20, Y + 18 

: HPLOT X + 4,Y + 19 TO X + 
19, Y + 19 

1595 HPLOT X + 5,Y + 20 TO X + 9 
,Y + 20: HPLOT X + 13, Y + 20 
TO X + 1B,Y + 20: HPLOT X + 
6,Y + 21 TO X + 8,Y + 21: HPLOT 
X + 14, Y + 21 TO X + 17, Y + 
21 

1597 RP = 20: GOSUB 3000 

1599 RETURN 

Draw white square. 

1600 HCOLOR= CL 

1640 FOR Z = TO 20: IF X + Z > 

279 THEN 1660 
1650 HPLOT X + Z,Y TO X + Z,Y + 

20 
1660 NEXT Z 
1690 RETURN 

Set half square to white. 

1700 HCOLOR= 3 

1740 FOR Z = X + 10 TO X + 18: HPLOT 
Z,Y TO Z,Y + 18: NEXT Z 

1750 RETURN 

Convert row, column to x, y 
coordinates. 
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1800 X = (R - 1) » 24:Y = (C - 1) 


2150 R = 11:N = INT (SC(P) / 10) 


2272 IF RI < 1 THEN RI = 10 


» 24 




2274 IF CI > 8 THEN CI = 1 


1840 RETURN 


2155 60SUB 1800 


2276 IF CI < 1 THEN CI = 8 




2160 CL = 0: 60SUB 1600:CL = (P - 


2280 IF RI = RI AND CI = CI THEN 




1) t 3 t 2: 60SUB 1300 


2266 


Calculate distance to apple. 


2165 R = 12! BDSUB 1800 


2285 RETURN 




2170 N = SC(P) - N » 10: CL = 0: 60SUB 


2295 B = 1: RETURN 


1900 RD = ABS (LR(P) - LR(O)) 


1600 
2180 CL = (P - 1) t 3 + 2: BOSUB 


Highlight player score. 


1940 CD = ABS (LC(P) - LC(0)) 


1300 
2185 FOR Q = 1 TO 500: NEXT Q 




1950 IF RD > CD THEN DS = RD 


2300 IF P = 2 THEN 2370 


1960 IF CD > RD THEN DS = CD 


2190 RETURN 


2340 R = 11.5:C = 1:CL = 2: 60SUB 


1970 IF RD = CD THEN DS = RO 




1800: GOSUB 1600 


1980 RETURN 


Get player move. 


2345 C = 7!CL = 0: GOSUB 1800: BOSUB 
1600 


Get direction to apple. 


2200 B = 


2350 GOTO 2382 




2230 RI = LR(P):CI = LC<P):R1 = L 


2370 R = 11.5:C = 7:CL = 5: BOSUB 


2000 DR = 


R(l + (P < 2)):C1 = LCd + ( 


1800: GOSUB 1600 


2035 IF LR(0) > LR(P) AND LC(0) = 


P < 2)) 


2380 C = 1:CL = 0: BOSUB 1800: BOSUB 


LC(P) THEN DR = 1 


2240 GET A»!A = ASC (A$)! IF A = 


1600 


2040 IF LR(0) > LR(P) AND LC(0) > 


13 THEN 2295 


2382 BOSUB 3100 


LC(P) THEN DR = 2 


2250 IF A = 73 THEN CI = CI - Is 


2390 RETURN 


2045 IF LR(0) = LR(P) AND LC(0) > 


GOTO 2270 




LC(P) THEN DR = 3 


2252 IF A = 79 THEN CI = CI - h 


Initialize board. 


2050 IF LR(0) < LR(P) AND LC(0) > 


RI = RI + 1: GOTO 2270 




LC(P) THEN DR = 4 


2254 IF A =.76 THEN RI = RI + 1: 


2400 HBR2 : HCOLOR= 3: HPLOT 0,0 


2055 IF LR(0) < LR(P) AND LC(0) = 


GOTO 2270 


: CALL 62454 


LC(P) THEN DR = 5 


2256 IF A = 46 THEN CI = CI + 1: 


2435 HCOLOR= 


2060 IF LR(0) < LR(P) AND LC(0) < 


RI = RI + 1: GOTO 2270 


2440 FOR Z = 240 TO 279: HPLOT Z 


LC(P) THEN DR = 6 


2258 IF A = 44 THEN CI = CI + 1: 


,0 TO Z,191: NEXT Z 


2065 IF LR(0) = LR(P) AND LC(0) < 


GOTO 2270 


2445 FOR Z = 21 TO 237 STEP 24: FOR 


LC(P) THEN DR = 7 


2260 IF A = 77 THEN CI = CI + 1: 


Q = TO 2: HPLOT Z + Q,0 TO 


2070 IF LR(0) > LR(P) AND LC(0) < 


RI = RI - 1: GOTO 2270 


Z + Q,191: NEXT Q,Z 


LC(P) THEN DR = 8 

f^ A i% A tf^f* ^imfci 


2262 IF A = 74 THEN RI = RI - 1: 


2450 FOR Z = 21 TO 189 STEP 24: FOR 


2090 RETURN 


GOTO 2270 


Q = TO 2: HPLOT 0,Z + Q TO 




2264 IF A = 85 THEN CI = CI - h 


239, Z + Q: NEXT Q,Z 


Plot player score. 


RI = RI - 1: GOTO 2270 


2460 FOR R = 1 TO 10: FOR C = 1 TO 




2266 FOR Z = 1 TO 30:Q = PEEK ( 


S: GOSUB 1800: GOSUB 1100: NEXT 


2100 N = 


- 16336): NEXT 2 


C,R 


2130 IF P = 1 THEN C = 2 


226B GOTO 2230 


2470 SC(l) = 0:SC(2) = 


2140 IF P = 2 THEN C = 8 


2270 IF RI > 10 THEN RI = 1 


2490 RETURN 




SoftSide 



fe#^iSfs^5^^ 



January 1982 77 



Make It ratn. 


3060 POKE 768,128: POKE 769,8: CALL 


WINNER": PRINT : PRINT "HIT 




770 


ANY KEY AND GOOD PICKING"; 


2500 60SUB 1800: GOSUB 1700 


3070 POKE 768,97: POKE 769,8: CALL 


10100 SET A$ 


2540 HCOL0R= 0: HPLOT X + 15,Y + 


770 


10110 PRINT "THE APPLE. THE FIRS 


15 TO X + 17, Y + 15: HPLOT X 


3080 NEXT Z 


T PLAYER TO SCORE": PRINT "1 


+ 14, Y + 16 TO X + 18,Y + 1 


3090 RETURN 


5 POINTS IS THE WINNER.": PRINT 


6: HPLOT X + 15,Y + 17 TO X + 






17, Y + 17 


New turn sound. 


10140 RETURN 


2550 HCOLBR= 6 






2560 FOR Z = 1 TO 60 


3100 FOR Z = 1 TO 7 


Initialization; load variables; poke 


2570 Xfl = INT ( RND (1) t 19):Yfl 


3140 POKE 768,110: POKE 769.10: CALL 


lone routine; poke arrow shiape. 


= INT ( RND (1) « 14) 


770 




2580 HPLOT X + XA,Y + YA TO X + 


3150 POKE 768,130: POKE 769,10: CALL 




Xfl + 1,Y + YA 


770 


20000 HOME : INVERSE : VTAB 7: HTAB 


2582 POKE 768, RND (1) t 50 + 40 


3160 NEXT Z 


13: PRINT "APPLE CAPTURE": PRINT 


: POKE 769, INT ( RND (1) » 


3170 RETURN 


: HTAB 19: PRINT "BY": PRINT 


5 + 3) : CALL 770 




: HTAB 15: PRINT "BILL RYAN 


2590 NEXT 2 


Winner sound. 


": PRINT 


2595 RETURN 




20050 FOR Z = 1 TO 3000: NEXT Z 




3200 RP = 5 


20060 FOR Z = TO 9: FOR 8 = 1 TO 


Pick apple location. 


3240 FOR Q = 1 TO 30 


7: READ S(Z,Q): NEXT Q,Z 




3250 ON ( INT ( RND (1) t 5 + 1) 


20070 FOR Z = 24576 TO 24613: READ 


2600 LR(0) = INT ( RND (1) » 10 + 


) GOBUB 2700,2800,2900,3000, 


Q: POKE Z,Q: NEXT Z 


1) 


3100 


200B0 POKE 232,0: POKE 233,96 


2640 LC(0) = INT ( RND (1) t 8 + 


3260 NEXT Q 


20082 POKE 770,173: POKE 771,48: 


1) 


3270 RETURN 


POKE 772,192: POKE 773,136: 


2690 RETURN 




POKE 774,208: POKE 775,5: POKE 




Print Instructions. 


776,206: POKE 777,1: POKE 77 


Tree-planting sound. 




8,3: POKE 779,240: POKE 780, 




10000 HOHE : PRINT " OBJECT OF 


9: POKE 781,202 


2700 POKE 768,150: POKE 769,7: CALL 


THE GAME IS TO FIND 15": PRINT 


20084 POKE 782,208: POKE 783,245 


770 


"APPLES IN THE ORCHARD." 


: POKE 784,174: POKE 785,0: POKE 


2740 POKE 768,255: POKE 769,9: CALL 


10050 PRINT " I HILL PLANT AN 


786,3: POKE 787,76: POKE 788 


770 


RCHARD OF 80 TREES": PRINT » 


,2: POKE 789,3: POKE 790,96: 


2750 RETURN 


10 RQHS BY 8 COLUMNS. EACH P 


POKE 791,0: POKE 792,0 




LAYER HILL": PRINT "HAVE A H 


20089 SC(l) = 0:SC(2) = 


Worm sound. 


ORM. ONE PLAYER WILL BE RED" 
: PRINT "AND THE OTHER BLUE. 


20090 NORMAL : RETURN 


2800 FOR Z = 200 TO 100 STEP - 


11 


Data for segments. 


20 


10060 PRINT ' HHEN YOUR COLOR I 




2840 POKE 768, Z: POKE 769,5: CALL 


S LIT YOU MAY MOVE": PRINT " 


21000 DATA 1,2,3,5,6,7,0 


770 


YOUR WORM TO ANY TREE USING 


21001 DATA 3,6,0,0,0,0,0 


2850 NEXT Z 


THE ": PRINT "U I J L M , 


21002 DATA 1,3,4,5,7,0,0 


2860 RETURN 


.' KEYS. HHEN YOU THINK" 


21003 DATA 1,3,4,6,7,0,0 




10070 PRINT "YOU HAVE FOUND THE 


21004 DATA 2,4,3,6,0,0,0 


Clue sound. 


APPLE, PRESS": PRINT "'RETUR 


21005 DATA 1,2,4,6,7,0,0 




N', IF IT IS THE APPLE YOU G 


21006 DATA 1,2,4,5,6,7,0 


2900 POKE 768,75: POKE 769,6: CALL 


ET A": PRINT "POINT. IF NOT 


21007 DATA 1,3,6,0,0,0.0 


770 


YOU WILL BE GIVEN 1 OF 3": PRINT 


21008 DATA 1,2,3,4,5,6,7 


2940 RETURN 


"POSSIBLE CLUES." 
10080 PRINT : PRINT "1. DIRECTIO 


21009 DATA 1,2,3,4,6,7,0 


Apple sound. 


N-GENERAL DIRECTION TO APPLE 
": PRINT "2. DISTANCE-MINUMU 


Data for arrow shape. 


3000 FOR Z = 1 TO RP 


N DISTANCE TO APPLE": PRINT 


21040 DATA 1,0,4,0,63,63,63,46, 


3040 POKE 768,193: POKE 769,8: CALL 


"3. RAIN-THIS IS NOT THE RIG 


45,45,45,45,53,62,62,62,62,3 


770 


HT TREE": PRINT 


7,37,37,37,37,37,39,39,39,39 


3050 POKE 768,156: POKE 769,8: CALL 


10090 'PRINT "FIRST PLAYER TO PIC 


,39,47,46,46,46,46,46,63,63, 


770 


K 15 APPLES IS THE": PRINT " 


63,0 Q 
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i Atari BASIC « 

i 'PIAZZA HOTEL' « 
$ AUTHOR: 6ary Doainick « 
1 ic) 1982 SonSide % 

Initialize subroutine line numbers. 

10 T 1=1000; HO-4000;CS=5000;PS-aOi)0;CA= 

7000:CL=:eOOO:CQ=?000:E](=10000 

15 RISHT=S100iLtFT=3200:yp=S300:DQ!flN=8 

400: y=l 1200; lfiW-li200:liiiil^=i 1000: DIM RfiT 

E$no; 

Opens keyboard. 



OPEN i?2,4,05"K:" 



The 


main prDgram 


which consists of five 


subroutines 






IC 


"' f^sT-ilE 


TI 








-if" 


eosuB 


HO 






SOSUB 


nr 




-V 


L'U 




, , 








'"' 


V biiibD 


ra 




- - 


i\ .-■-iriir. 


nft 






'.' OL'u'L-D 


LH 




v" 


■-'. r n T n 

■J O'JS'u 


-vOO 





Routine to create the flashing marquee 
title graphics. 



ICOO REr! tt TITLE GRAPHIC tt 

1010 SRfiPHICS 2t16 

102C COLOR hPOSITiON 5,5i? ti;"PIA2ZA 

HOTEL" 
1200 FOR U=l TC 5:rOR X=2 TO IB 
1210 COLOR 2:SETCOL0R i,4,14:P0SITI0N 
tj\'' »6iCHR$!27O)!P0SITI0fil 2Q-l,li'> t 
6!CHn|i270) 

1220 COLOR liPOSITION 1,3;" #6jCHSIil4 
2/;PDSITI0N 20-?, 7:" l6;CHRM142i 
1230 FOR Z=l TO 8:N£n Z;NEXT >.. 
1310 FOR ZZ=4 TO 6:C0L0R 2:SETCQL0R 1, 
y5i4;rJ3i i lufi L,lv-LLl: it&iL-hh* U; U; ; r 
OSITION 18,11:'? t6;CHRI{270i 
1320 COLOR liPOSITION 2,10-ZZ:? »6;CHR 
l!142);F0SITICN le.ZZ:" ti!CHR$(142i:F 

nri ■? _ H Tr^ 1f.it!r'.'T T , hi— y T i "i 
■jfi. L-i iU leSi'LAi £.;«!:*! ii 

19?9 RETURN 

Routine to draw the hotel in different 
colors each game. 

40C0 RER It DRAl^ HOTEL tt 



Draws bands of different shades of one 
color to represent each floor of the 
hotel. 




4010 SRAPHICS 7;C0LQR 1;D^INT(RND(0)I1 

5;+l;IF D=3 OR 0=4 OR D=3 THEN GOTO 40 

10 

4020 FOR l-Q TO 77 STEP 12 

/".ATA n_r I '. . rr n_.i "^Lirt! r-t 
tO-jO u-LTiSir L-f irihi'l L-l 

4040 SETCQLOR 0,S,6;SETC0L0R i,D,10;SE 
TCOLQR 2,D,2 

TO 13,0+)!:P0SITIQN 13,10+a 
4110 POKE 765, C 

.1 i '"i-A ',' T n < n IL .' A A II n , 1! 

^ii'.i All! lOiffo.VjU, ■;; 
4130 NEaT )• 

Draws the numbers 1 to 7 in graphics 7 
on the left and right side of the hotel. 

4300 REn n mm floor nuhbers tt 

4305 FOR ^2 TO 145 STEP 143 

4310 color 1:PL0T 6+)(,74;DRAWTQ hH,7S 

4320 PLOT 5+J(,39;DRH!iiT0 5+.?i41;DRAyTG 

7+a,4!;PL0T 7+K,37:CRAWT0 IH.^Z 

4330 PLOT 5ty,2;BRAl*Tn 7t?,2:DRHt!TQ 7+ 

fi J 

4340 COLOR 3;FL0T 5tX,63:DRAWT0 7n,53 

;DRAWT0 7+.;(,65:DRh!!TG 5+X,i5:DRHlilT0 5+ 

Li7;DRAWT0 7+.?, 67 

4350 PLOT 7+X,26:DRAWT0 5+X,26;DRAyT0 

5+i,28;DRAWT0 7+X,2S;DRAyT0 7+y,30:DRA 

WTO 5+X,30 

4360 COLOR 2:PL0T 5+X,51;DRAWT0 7+X,51 

:DRApiTO 7+L55:DRAWT0 5+J,55:PL0T S+X, 

53;DRAii'T0 7+.K,53 

4370 PLOT 5+X,14:DRAWT0 5+L18:DRAyT0 

7+)(:,18;DRAwT0 7+S, 16:DRAWT0 5+X,16 

4372 NEXT X 



Divides each floor into nine rooms. 

4375 REH it DIvIDE ROOilS It 

4380 FOR Y=15 TO 143 STEP 15 

4390 COLOR 0:PLOT 12+Y,0;ItRAyTO 12+y,: 

9 



Prints room numbers and name of hotel 
in the text window under the hotel. 



4400 REM II ROQH NUMBERS II 
4410 POKE 752,1 

4420 POKE 656,0:P0KE 657,3:" " 1 2 
3 4 5 6 7 3 9" 
4430 POKE 656,1:P0KE 657,1:? " PIAZZA 
HOTEL PIAZZA HOTEL PIA ZZA HOTEL " 

4999 RETURN 

5000 REH II COHPOTER SELECTION II 

Computer chooses floor and room 
numbers where bomb is hidden. 

5100 C0FL=INT(RNBi0)l7itl:C0R«=INT(RND 
(0)t9)+l 

Computer chooses how many guesses 
the player will have. 

5200 EOQI1=INT(RND(0)l5)+2 

5300 EXPL=0:SUESS=0 

5400 RETURN 

6000 REH It PLAYER SUESS tt 

6010 50SUB WW:POKE 656,3:P0K£ 657,2:? 
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Unlock the hidden power 
of your computer for fast and 
easy programming! Use ROM 
routines in your BASIC 
and Assembly Language 
Drograms! All you need to 
know IS m... 



ALL 

ONLY 

$19.95 

plus SI shipping 




^^^^ffl 



VtSA 



■Sofgrae, 



lons- 



INCLUDES: 

SUPERMAP 

From Fuller Software ($18.95) 

TRS-80 

DISASSEMBLED 

HANDBOOK 

by Robert Richardson ($10.00) 

HEX MEM 

by John Phillipp 
Monitor written in BASIC 

Z-80 
DISASSEMBLER 

by George Blank 



A SoftSide Publication 



Guide to Level II BASIC 
and DOS Source Code 

Description of the contents of the Level II BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine and use ROM routines. 



4100 POKE i54,3;P0KE fc57, '.-.SOUND 0,1,6 
,12!6QSL1B UiSOUND 0,0,0,0:? "WHICH FLO 
OR ?": 



Gets floor number of player's guess. If 
not between 1 and 7, erases guess and 
asks again. 



illO GET I2,FL!IF FL<49 OR FL)55 THEN 
SOUND 0,20,6, 12:G0SUB WiSOOND 0,0,0,0: 
GOTO 6010 



Converts ATASCII number generated 
by GET command to decimal number. 



6115 PLFL^Fi-iS 

Repeats procedure for room guess. 

6117 POKE 456,3:P0KE 457,19:? " 

4120 SOON!) 0,3,4, 12:G0SUB W:30uND 0,0, 

0,0:PQKE 454,3:P0KE 657,17:? PLFL:" 

t^HICH RGCM •'M 

4130 GET #2,Rf1;!F RM<49 OR Rr1>57 THEW 

SOUND 0,20,4, 12:G0SUB !0:SOyND 0,0,0,0: 

SOTO 4117 

4140 PLRf!=R!l-4S: SOUND 0,2,4, 12;SDSUB M 

: SOUND 0,0, 0,0: POKE 454, 3: POKE 657,34: 

? PLR!1;:G0SUB WW 

4999 RETURN 



Routine used after each guess to 
determine what clues to give. 



7000 REM J! CLUE CALCULATION I J 



Decides If the bomb should blow up or 
not. 



7100 E](PL-EXPL+i;qUESS=GUESS+1:IF EWl 
=B00f1 THEN SOSUB E)! 

Based on the subtraction of the player's 
guess from the computer selection, the 
program will branch to the subroutine to 
print the clues. 



7150 FLC=COFL-PLFL!R!1C=CORI1-PLR!1 

Sends the program to "correct" 
subroutine. 

7200 IF FLC=0 AIsD R?!C=0 THEN GOSUB CO: 

RETURN 

7250 IF FLC-0 and RHOO THEN GOSUB RIS 

HTjRETURN 

7300 IF FLC=0 and R!1C<0 THEN GOSUB LEF 

T: RETURN 

i-Jv lY 

RETURN 
7400 IF 
HT:EOSUE yP:RETURN 

7450 IF FLOO and R!1C<0 THEN EQSUB LEF 
T:RQSUB UP:RETURN 

7500 Ir FLC<0 AND R!1C=0 THEN SCSUB DO^ 
N:RETURN 

7550 IF FLC<0 AND RHOO THEN eOSUB RIG 
HTjGOSUB DOWN:RETURN 
7400 IF FLC<0 ANB RHC<0 THEN SOSUB LEF 
T:G0SUB BOlilN: RETURN 
ml hciuhN 

8000 REM t» PRINTED CLUES M 
Draws the clues in the room that was 
guessed. 



eiOO REff Jl RIGHT U 

S105 H^(PLRf1«15)+5;¥=87-!12tPLFL):S0SU 

E 8500 

8110 COLOR 0;PLOT H,i/:DRA!ilTO H+4,V 

8120 PLOT H+4,V+2:DRA!iiT0 H+4,y:DRAWT0 

H-t4,V-2 

8130 H=0:V=O;RETyRN 

S200 REM It LEFT tt 

B205 H=(PLRMiii5l+4:V=8?-(12tPLFL/:S0SU 

8210 COLOR 0:PLOT H,V;DRAyT0 H-4,y 

8220 PLOT H-4,V-2:DRAyTQ H-4,V:DRA!ilT0 

H-4,y+2 

8230 H=0:y=0: RETURN 

8300 REH tt UP il 

8305 H=(PLRf!ll5)+4:y^37-il2tPLFL):G0SU 

E 8500 

8310 COLOR 0;PLOT H,V:DRA»iTO H,V-5 

8320 PLOT H-2,V-3:DRHi«T0 H. v-5;DRA;iT0 

n+i, V--j 

8330 H=0;V-0:RETURN 
3400 REH it DCsIN It 
S405 H=:(PLRnll5/+4:V=S?-;12tPLFL!:G0SU 

8410 COLOR 0:FLOT H,y;DRAWTO H,yt5 

8420 PLOT H-2=y+3:BRANTD H,Vf5:DPAMT0 

H+2,V+3 

8430 H=O:y:^0: RETURN 

Creates sound after printing each clue. 

SjvI.: rLii-, n-i !u .■ 
S510 SOUND 0,40MHtlOi,10,i2 
3520 mil i1;SQnND 0,0,0,0;RETU'N 
Flashing "correct" routine. 

9000 REH It CORRECT ROUTINE tt 
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Draws bomb In room. 


9348 IF GUESS=5 THEN RATE$="DETECTIVE- 
CLASS E" 


FLASH=2 


9010 H=(C0R!1tl5)+5:V=?0-(12»C0FL! 

9100 FOR Z=-2 TO 2: COLOR OiPLOT H-2,'y'+ 

ZiORAWTO H+2,'v'+Z:hi'En Z 

9110 PLOT H-l,V-3:DRfiWT0 H+1,V-3!PLDT 

H-l,y-5:DRAWT0 H+1,V-5!PL0T H,V-5:DRAM 

TO H, V-3 

9200 FOR Z--! TO 8 


9350 IF GUESS>5 THEN RATE$=" GUM - SHO 

E_" 

9360 POKE 656, 2: POKE 657,2:? "YOUR RAT 

ING IS... "!!? RATEIi 

9400 POKE 656,3:P0KE 657, 3:^ "Press an 

y key for another gase..."; 

9410 SET »2,ABAIN:G0T0 400 


Makes sure that rays don't go out of 
range. 

10226 IF H+B>158 THEN B=0 

10227 IF y-G<0 THEN 6=0 

10228 IF V-F<0 THEN F-0 

10229 IF H-J(0 THEN C=0 


9220 SETCOLOR 4,0, 14: SOUND 0,50,10,12: 




10230 PLOT H,V+2;DRAI.7T0 H+B.V+2-S:PL0T 


GOSUB WW:SETCOLOR 4,0,0:S0UND 0,150.10 


Explosion routine. 


H,y+2:nRAWT0 H-J,V+2-F 


,12;S0S!JB m 




10250 VUVU0.91:V2=V2I0.95:V3-V3«0.97 


9230 f^EXT Z:SOUND 0,0,0,0 


10000 REH n EXPLOSION U 


:IF V3>3.2 THEN 10210 


9300 FOR Z=0 TO 3: POKE i.56,Z:P0KE 657, 

1 .n II 




10270 SOUND 0.0,O,O:SuUND l,0,0,0:SOl!N 

n "J n A A 


";:NEXT Z 


Draws bomb in room where It was 


10300 >0K£ 752.1 




placed by the computer. 


10310 IF C0FL=PLFL AND COR«=PLRf! THEN 


End of game results. 




GOSUB 12000:GGT0 10330 


9310 POKE 752,1:P0KE £.56,0:P0KE i57,l! 
? " CONSRfiTULATIONSl 


10070 H=(C0R!1?!5;+5:y=90-il2JC0FL) 
10100 FOR Z=-2 TO 2:C0L0R 0:PLOT H-2iV 
+Z:DRfiWTO H+2,V+Z:NEn Z 
10110 PLOT H-l,V-3:DRS?iT0 H+1,V-3:PL0T 


10320 POKE 656.0:P0KE 657,0:? " 


TOO BAD! — - TOO LATE' 


10330 POKE 656,1:PQKE 657,0:? " YQU A 
RE NOI^ A DETECTIVE IN THAT BIG " 


K 1 

• 


9320 6LlESTS=INT(RND(0)}100) + fi00-GyESS 


H-1,V-5!DRAWT0 H+l.y-5:F10T H,V-4:DRA 


10340 POKE 656,2:P0KE 657,0:? " HOTE 


tlOO) 


WTO H,V-3 


L IN THE SKY. TO RETURN TO EARTH "; 


9330 POKE i5i,l:PDKE 657,0;? "YOU HAVE 




10350 POKE 656.3;PaKE 657. 0:^ " FOR 


SAVED "jGUESTSi" GUESTS'; 




ANOTHER GARE PRESS ANY KEY... "; 




Creates visual and sound effects for 


10400 GET #2,P:G0T0 400 


Determines rating based on the number 
of guesses It took to find tlie bomb. 


explosion. 

10200 GOSUB mmm 2,75,e,i5;Vl=15:V2 
=15:V3-15:FLASH-2 


Time-delay subroutines. 


9340 IF GL!ESS=1 OR GL1ESS=2 THEN RATE$= 


10210 SGUND 0,20,e,VhS0UND 1,40,S,V2: 


11000 "OR f^-1 TO 100:NEn H 


" SUPER SLEUTH « 


SOUND 2.70,3,V3 


11100 FOR !1^1 TO 50:NEXT H 


9344 IF bUESS=3 THEN RfiTE$=" MASTER DE 


10220 COLOR 0:BETCOLOR 4,4,FLAbH:B=INT 


11200 FOR H^l TO 50:NEn HsRETORN 


TECTIVE " 


(RND(0;tH5 + !:G=INT(RND{OiW! + l;J=INT(R 


12000 POKE 656.0:P0KE 657,0;? " RIOH 


mk IF GUESS=4 THEN RATE$="D£TECTIVE 
CLASS-A" 


ND(0)tH) + hF=INT(RND(0^?y) + l 

10225 FLASH=FLASHtl2:IF FLASH>i4 THEN 


T ROGH -JUST TOO LATE- TOO BAD! ":RET 


URN ^ 
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by Arthur N. Schreibman 

Number Race is a game program for 
an Atari with 8K or more RAM and 
one joysticl(. 

A random string of numbers moves 
from right to left across the lower part 
of the screen between two large blue 
asterisks. In the center of the screen is a 
single digit that you can increase by 
moving the joystick in any direction. 
When your number matches one of the 
digits in the string below, hit the fire 
button. The number will vanish from 
the string, the other numbers will move 
backwards to eliminate the space of the 
vanished number, and you will be 
awarded points. Continue until you 
have cleared the string, or until one of 
the numbers reaches the left asterisk. 
You will be razzed or trumpeted, 
depending on how well you did. After 
a couple of seconds, round two begins. 
This time the numbers march out a lit- 
tle faster, but the point value for each 
match increases. The fifth and final 
round is difficult enough to test the 
best. A perfect score is 1000 points. 
High score for each session is held on 
the screen. 



Variables 



1), 



GAME: Flag for mid-game ( = 

end-game ( = 0). 

H: ATASCII value of number. 

HTOT: High game score. 

I, J: Loop counters. 

K: Column used to get numbers to 

move across screen and to check for a 

match. 

M: Value of matching number. 

N$: Number string to match each 

round. 

Q: Flag for joystick movement (= 1), 

and return to center ( = 0). 

QUIT: Flag for lost round (=1), won 

round ( = 0). 

R: Number of round. 

S: Random number to generate 

number string. 

SC: Round score. 

ST$: String version of each random 

number. 

T: Timer loop counter. 

TOT: Cumulative game score. 

V, W: Position of matching number. 

X, Y: Positions for moving number 

string. 

Z: Column used to get numbers to 

move backwards after a match, and 

to clear row after game. 
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$ Atari BASIC $ 

t 'NUMBER RACE' » 
i AUTHOR: A. Schreibaan ( 
i (c) 1982.SonSide « 
$$$$$$$$$$$$$$$$$««$$$$$$ 

Initialization. 

50 GRAPHICS 2 

55 HTQT=0:TOT=0 

60 DIM N»(li),ST«(l):POKE 752,1 

65 R=1:GAME=0:QUIT=0 

Prints playfield In graphics area and 
scoretraard In text window. Line 70 has 
alternate letters of the string in inverse 
video. The GAME = 1 flag In line 73 
changes the round score back to after 
each round. When the game is over the 
GAME = 1 (line 1260) and the score of 
the final round will remain on the 
screen. Line 97 brings scores back to 
at the start of a new game. The last 
character In the string In line 97 is a 
control character vertical arrow. 



70 POSITION 4,0:? t6!'nu«ber race" 

73 IF GAME=1 THEN SC=0 

75 POSITION 1,2:? 16; 'ROUND "|R|° " 

77 POSITION 6,7:? #6; "I": POSITION 13,7 

:? l6jM» 

80 P0KE'*656,1:P0KE 657,1:? "ROUND SCOR 

E: ^SC;" " 

85 POKE 656,1:P0KE 657,28:? "HIGH: "|H 

TOT 

90 POKE 656,2:P0KE 657,1:? "TOTAL SCOR 

E: ';TOT;" ° 

92 IF GAHE=1 THEN GOTO 108 

96 POKE 656,3:P0KE 657,8:? "PRESS 'FIR 
E' TO START"jCHR$(28) 

97 IF STRIS(0)=0 THEN SC=0:TOT=0:POKE 
656,1:P0KE 657,14:? SC;" ";;POKE 656 
,2:P0KE 657,14:? TOT;" »:GOTO 108 

98 GOTO 97 



Fills the number string with ten digits. 
Line 110 converts the number S Into a 
string, ST$. 



108 FOR 1=1 TO 10 

110 S=INT(RND(0)»10+1):ST*=STR«(S) 

120 N*(I,I)=STt 

130 NEXT I 

140 FOR 1=11 TO 16 

150 N$(I,I)=" " 

160 NEXT I 

Moves numbers across screen and 
changes your matching number. Line 
245 allows the stick to Increment the 
matching number, M. Q is set to 1 




Indicating the change. Line 255 sets Q 
back to H ttie Joysttek goes back to ttie 
center posiikm. This altows the program 
to pass through line 243 and Increment 
M again. Without this procedure, 
holding the Joystick off-center would 
continually change the value of M 
Instead of Increasing M one digit for 
each Joystick move. The string row is 
always 7, and Y Is set to that constant. 
The first digit starts out In column 12 
and moves left to column 7. Line 230 
prints the first digit In position 12,7. 
Line 240 determines the speed of the 
game, getting faster as the rounds, R, 
progress. Increasing the 70 In that line 
will stow down the game. Line 275 finds 
the value, H, in each position and line 
280 prints those characters one position 
to the left. Line 285 checks to see If a 
digit reached the last position on the 
left, and If it did, the lost round flag, 
QUIT, is set to 1. If the round ends, 
line 290 sends the program to line 1200. 

200 X=12:Y=7:H=0:V=10:«=5 

205 POSITION V,N:? I6|« 

207 SOUND 0,40,10,6:F0R T=0 TO 20:NEXT 

T:SOUND 0,0,0,0 
210 FOR J=l TO 16 
230 POSITION X,Y:? l6iNt(J,J) 
235 SOUND 0,100, 10, 6:F0R T=0 TO 20:NEX 
T T:SOUND 0,0,0,0 
240 FOR T=0 TO 70-(15*(R-l)) 
243 IF Q=l THEN 246 

245 IF STICK(0)<>15 THEN M=M+1:Q=1:P0K 
E 77,0:S0UND 0,40,10,6:F0R l(T=0 TO 20: 
NEXT HT:SDUND 0,0,0,0 

246 IF M=10 THEN H=0 

247 POSITION V,H:? I6in 



250 IF STRI6(0)=0 THEN 1000 

255 IF STICK (0) =15 THEN Q=0 

260 NEXT T 

270 FOR K=8 TO 12 

275 LOCATE K,Y,H 

280 POSITION K-1,Y:? t6;CHR$(H) 

285 LOCATE 7,Y,H:IF H032 THEN 8UIT=1 

290 NEXT K:IF QUIT=1 THEN 1200 

300 NEXT J 

Line 1010 checks the ATASCII value of 
each digit In the string If the fire button 
Is pressed (from line 250) and compares 
it to M in line 1020. If there is a match, 
lines 1030 to 1055 move all the 
characters to the left of the match one 
position to the right. 

1000 FOR K=B TO 12 

1010 LOCATE K,Y,H 

1020 IF H=(M+48) THEN 1027 

1025 NEXT K 

1026 GOTO 270 

1027 SOUND 0,180, 10, 10:F0R T=0 TO 15:N 
EXT T 

1028 SOUND 0,120, 10, 10: FOR T=0 TO 15:N 
EXT T:SOUND 0,0,0,0 

1030 FOR Z=K-1 TO 7 STEP -1 
1040 LOCATE Z,Y,H 
1050 POSITION Z+1,Y:? t6;CHR«(H) 
1052 POSITION Z,Y:? #6;" " 
1055 NEXT Z 

Increments the score. 

1080 SC=SC+10+5»(R-1) 

1090 POKE 656,1:P0KE 657,14:? SC 
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The aliens have swept undefeated across the galaxy. 
You are an enterprising star ship captain — the final 
defender of space. 

As the aliens attack, you launch a deadly barrage of 
missiles. Flankers swoop down on your position. 
Maneuvering to avoid the counterattack, you 
disintegrate their ships with your magnetic repellers. 

As your skill improves, the attackers increase their 
speed. And as a last resort, the aliens use their 
invisible ray to slow the speed of your missile 
launcher. 

GALACTIC CHASE provides Atari owners with the 
most challenging one or two person game in the 
galaxy. 

A. 

ATARI 

Atari 400/800 16k. Written in machine language. Requires joysticks. 

Payment: Personal Checks — allow three weeks to clear. 

American Express, Visa, & Master Charge — include all numbers on card. Please include phone 
number with all orders. 24.95 for cassette or 29.95 for disk plus 2.00 shipping. Michigan 
residents add 4%. 

Check the dealer in your local galaxy. Dealer inquiries encouraged. 

Galactic Chase © 1981 Stedek Software. 



SPECTRUM 

COMPUTERS 



Depf S. 
26618 Southfield 
Lathrup Village, Ml. 48076 
(313) 559-5252 



1095 IF SC=10I(10+5»(R-1)) THEN 1200 
1100 GOTO 270 

Cleans up things at the end of a round. 
Line 1200 Increments the round. Line 
1210 adds the round score to the game 
score and It Is printed In line 1215. Lines 
122S to 1240 blank the area between ttie 
asterisks after a round. Line 1260 sets 
GAME = 1 to signify we are In the 
middle of the game and sends the 
program back to start the next round. 



1200 R=R+1 

1210 TOT=TOT+SC 

1215 POKE 656, 2: POKE 657,1:? "TOTAL SC 

ORE: 'iTOT;" " 

1217 IF QUiT=l THEN SOUND 0,120,12,15: 

FOR T=0 TO 200:NEXT T:SOUND 0,0,0,0:60 

TO 1224 

1220 SOUND 0,130, 10, 8;F0R T=0 TO 65:NE 
.U T 

1221 SOUND 0,122, 10,8:F0R T=0 TO 65:NE 
n T:SOUND 0,155, 10, 12:F0R T=0 TO 100: 
NEXT T 

1222 SOUND 0,100, 10, 12:F0R T=0 TO 180: 
NEXT T:SOUND 0,0,0,0 

1224 QUIT=0 

1225 FOR Z=7 TO 12 

1230 POSITION Z.Y:? 16;" " 
1240 NEXT Z:IF R=6 THEN 1300 
1250 FOR T=0 TO 450:NEXT T 
1260 Gftl1E=l:60T0 73 



End game. Line 1310 keeps track of the 
high score for the session and 1350 
sends the program back to initialize for 
the next game. 



1300 POSITION 1,2:? i6;"eftME OVER" 

1310 IF TOT MOT THEN HTOT=TOT 

1350 FOR D=l TO 1000: NEXT D:60T0 65 © 



Atari One Liners 

1 POKE 752,1:PRIHT" ";:R=2B+RND(0)t4: 
PRINT CHR$(R)|CHR$(R+i-!R>30));" V';:F 
OR 1=1 TO RNDi0)112:S0UND 0,112, 10, 4:N 
EXT hSOTO 1 

Nick Buehler 
Andover, MA 

1 GRAPHICS 56:C=RND(0)t60:P0KE 710, Ct2 

:CaLOR 1:F0R Z=0 TO 319 STEP B:PLOT 15 

9,95:DRA«T0 X,SIN(X/C)tC+'?5:NEXT X:GOT 

1 

Lynn Wallace 

Rapid City, SD 
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January 6-8 

Fifteenth Annual Hawaii International 
Conference on Systems Sciences 
(HICSS-15) 
Honolulu, HI 

Sponsored by the University of Hawaii 
and the University of Southwestern 
Louisiana (in cooperation with the 
Association for Computing Machinery), 
this conference is directed at medical 
information-processing researchers and 
practitioners. Topics to be covered include 
diagnosis by the computer, computer- 
based medical instrumentation, and 
computers and the handicapped. The use 
of computers in both individual and 
group practices, as well as medical labs 
and hospitals will also be covered in this 
three-day session. 

Contact: Dr. Bruce D. Shriver, c/o 
HICSS-15 Medical Information 
Processing, University of Southwestern 
Louisiana, P.O. Box 44330, Lafayette, 
LA 70504 



January 7-10 

1982 Winter Consumer Electronics Show 

(CES) 

Las Vegas Convention Center, Hilton 

Hotel and Jockey Club, Las Vegas, NV 

Seminars and workshops will be the 
highlights of this conference. Audio and 
video equipment, computers, and other 
consumer items will be exhibited at this 
event with over 800 vendors represented. 
Contact: Consumer Electronics Shows, 
Two lUinois Center, Suite 1607, 233 N. 
Michigan, Chicago, IL 60601, 
(312)861-1040 



January 12-15 

Communication Networks Conference and 

Exhibition 

Cieorgia World Congress Center, Atlanta, 

GA 

This conference is designed for people in 
the telecommunications industry. Sessions 
will include panel discussions, and 
tutorials on voice, data, and electronic 
mail communications. 
Contact: Communication Networks, 375 
Cochituate Road, P.O. Box 880, 
Framingham, MA 01701, (617)879-0700 



January 14 

Invitational Computer Conference 
S. Coast Plaza Hotel, Orange County, 
CA 

This conference will include seminars and 
displays of computer and peripheral 
equipment. The focus will be aimed at the 
needs of the quantity buyer. 
Contact: B. J. Johnson and Associates, 
2503 Eastbluff Drive, Suite 203, Newport 
Beach, CA 92660 



January 15-16 

Microcomputers in Education: Uses for 

the 80s 

Arizona State University, Tempe, AZ 

This is the tenth annual conference on 
math and science. It will stress the 
microcomputer as an instructional tool 
which can also be used for research and 
as an information manager. Workshops, 
demonstrations, panel discussions, and 
problem-solving groups will be offered. 
Contact: Nancy Watson, 203 Payne Hall, 
Arizona State University, Tempe, AZ 
85287 

January 19-22 

Peripheral Array Processors for Signal 
Processing and Simulation 
Sheraton National Hotel, Washington, 
DC 

Details for this seminar were not available 
at press time. The fee for this course is 
$795. Please write for details. 
Contact: Continuing Education Institute, 
10889 Wilshire Boulevard, Suite 1030, Los 
Angeles, CA 90024, (213)824-9545 



January 20-22 

Texas Computer Show 

Dallas Convention Center, Dallas, TX 

Word- and data-processing equipment will 
be featured in demonstrations. Panel 
discussions, seminars, and conferences will 
be an added enhancement to the show. 
Contact: Texas Computer Show, P.O. 
Box 214035, Dallas, TX 75221, 
(214)761-9108 



January 28-30 

Conference on Modeling and Simulation 

on Microcomputers 

Bahia Hotel, San Diego, CA 

This conference is sponsored by the 
Society for Computer Simulation (SCS). 
Discreet and continuous simulation on 
microcomputers will include papers, panel 
discussions, and tutorials. 
Contact: SCS, P.O. Box 2228, La Jolla, 
CA 92038, (714)459-3888 
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Short Courses in Advanced Technology 

This self-training program was developed 
for and by engineers. It is a direct 
extension of the material used in the ICS 
classroom microprocessor courses. A total 
of 12 different courses will be offered in 
advanced technology over the next few 
months. Special in-plant presentations can 
be scheduled at your place of business. 
Other courses in microprocessor self- 
training and video courses will be offered. 
Please write for free brochure and 
complete schedule of classes and prices. 
The dates and course titles for this month 
are as follows: 



January 19-22 

Digital Filters and Spectral Analysis 

San Francisco, CA 
Hands-On Pascal Workshop 

Washington, DC 
Computerized Robots 

Washington, DC 

January 26-29 

Microprocessor Software, Hardware and 
Interfacing 

Los Angeles, CA 
Computer Network Design and Protocols 

San Francisco, CA 
Digital Filters and Spectral Analysis 

Washington, DC 
Hands-on Microprocessor 
Troubleshooting 

Los Angeles, CA 
Contact: Integrated Computer Systems, 
3304 Pico Boulevard, P.O. Box 5339, 
Santa Monica, CA 90405, (800)421-8166, 
in California (800)352-8251 



If you or your organization are 
sponsoring or know of an event you 
think would be of interest to 
SoftSide readers, please send 
complete information to: 

SoftSide Publications 

Calendar Editor 
6 South Street 
Milford, NH 03055 

Be sure to include complete 
information concerning dates, 
location, subject matter and a 
contact name, address, and phone 
number. Please submit material two 
months prior to the date of the 
event. Thank you. 
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BOUND TO PLEASE: SoftSide's Deluxe Edition 

Twelve issues of SoftSide — October 1980 to September 1981 



SoftSide is pleased to announce this limited edition: twelve 
Issues sewn into blue buckram. This sturdy library bound 
collection will be available in limited quantities, so order 
yours now. 



The SoftSide Deluxe Edition — $75.00 

Send a check or use your MasterCharge/VISA credit card. 
To order write: SoftSide Publications 

6 South Street 

Miiford, NH 03055 




by Edward E. Umlor 



That time has come around again — 
a new month and a new year. Last 
month we made ourselves a diskette, 
and now we are going to have to put it 
into something. Well, we are just going 
to have to talk about the disk drive 
itself first, then we can put our diskette 
into it and do some formatting. 

What are the basic requirements for 
a disk drive? 

1. A main frame to mount all the 
goodies on. 

2. A motor, spindle, and spindle clamp 
to grip the diskette and spin it inside 
the jacket. 

3. A holder for the jacket with write- 
protect sensor. 

4. A precision read/write head posi- 
tioning system. 

5. A sensor system for index/sector 
holes. 

6. A disk drive motor speed-control 
electronics. 

7. A head-positioning electronics with 
a track 00 detector. 

8. A data buffer and input control 
signal buffering with termination if 
required. 

9. A data read/write control with data 
transfer from and to diskette. 

I have probably broken this down a 
little further than some think is 
necessary, but I am sure there are some 
who have never seen a disk drive. What 
a delight they have in store, when they 
finally set the cassette aside for the 
(almost) real-time data transfer of the 
disk system. 1 will not be able to cover 
DOSs (disk operating systems) this 
month, but let me describe and explain 
the parts of a disk drive listed above. 

1. The main frame is made out of 
two materials that I know of as of this 
writing. The first is cast aluminum 
from precision molds — cooled, and 
tempered under tight controls to 
reduce as much as possible any internal 
stresses. Any warp at all can cause the 
diskette and head to never come into 
proper alignment. The same process is 
applied to the high-impact, fiber-filled, 
and plastic main frame. (TEAC is the 
only one using plastic that I am aware 
of although all door assemblies for 
floppies are plastic — see Figure 1.) 
Aluminum is used by the rest of the 
drive manufacturers. They feel it is 
more rigid, less susceptible to 
temperature extremes, and stays true 



over the longest period of time. 
However, you don't want to drop, 
tighten into a misaligned chassis, or 
subject an aluminum frame to tor- 
sional stress. It can take a permanent 
set and thus be rendered useless. My 
experience with the plastic main frame, 
so far, has been a recovery back to its 
original alignment after the stress has 
been removed. I have one that a UPS 
truck tried to back over (the face 
was badly fractured) and it is still 
working fine. 

2. The first things we will mount on- 
to the main frame are the disk drive 



motor and spindle (the spindle clamp is 
actually mounted on the door 
assembly.) Take a look at Figure 2 and 
you will see the flywheel, drive motor, 
and drive belt connecting the two. The 
spindle is made of the following parts 
from the inside to outside: hub locked 
onto drive shaft, sealed ball bearing as 
shaft enters frame, a spring, exit ball 
bearing, and then the flywheel locked 
to the shaft with a center screw. On the 
flywheel are two strobe light strips (one 
for 50 Hz power and one for 60 Hz 
power). You can adjust the speed of 
your disk drive with a fluorescent light. 



Logic Board 




Door Assembly 



Main Frame 
Side Assembly 

Figure 1 
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Drive Select Indicator 



Flywheel 



Logic Board 




Door Assembly 



JJ^Disk Drive 
Motor 



Mainframe 



Figure 2 



Remember that a fluorescent light 
varies its light output with the actual 
flow of electrons through it! An in- 
candescent light doesn't nor does the 
sun. The fluorescent light is the only 
one that can be used as a strobe light to 
adjust your drive speed. The correct 
rotational speed for most 5 1/4 inch 
floppies is 300 RPM. 

3. The jacket holder is usually two 
slots that line up with the disk opening 
in the face. These are a part of the 
main frame mold in most cases, but 
can also be plastic sides mounted on 
the main frame. On the proper side, 
you will find the write-protect detector. 
There are two types being used. The 
first is a lever-activated microswitch 
(the tip of the lever drops into the 
notch on the diskette). The second is a. 
LED (light-emitting diode) and LDD 
(light-detecting diode) pair located to 
shine through the open area of the 
notch on the diskette. When the switch 
is not activated or light is detected, you 
can write to the disk without problems. 
Cover up that notch and when you try 
to write to the disk you will get an 
error message. 

4. There is more than one way to 
position the head on the diskette. The 
first is a taut band. The taut band is 
secured to one end of the head carriage 
assembly, wraps around the drive shaft 
of the positioning motor, and on to be 
secured to the other end of the head 
carriage. One side of the band is slotted 
to allow the other side to pass through. 
Aligning the head on the taut band 
system is done by rotating the motor 
itself or by shifting the head carriage 
back and forth. The second way to 
position the head is by the wormscrew 
method. The head carriage is moved by 
a tab riding in a spiral groove cut into 
the shaft connected to the motor. The 
alignment of the head is accom- 
plished by rotating the motor and thus 
the shaft. 
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5. This is a short one. The index/sec- 
tor hole sensor has been a LDD/LED 
pair on all the drives I've worked on so 
far. The real necessity of these dif- 
ferent sensors, etc., will be covered 
when we finally get around to format- 
ting a disk. 

6. The disk drive motor speed con- 
trol is very important to good consis- 
tent data transfer. It can be a separate 
board (TEAC, Tandon, CDC, and 
others) or a part of the main control 
and logic board (MPI and some 
others). It consists of a voltage 
regulator (some are adjustable) and a 
second POT (potentiometer) for ad- 
justing the actual voltage or current 
supphed to the drive motor. Within the 
drive motor is a speed detector to feed 
the actual speed back to the control 
board. The control board will then 
supply more or less voltage/current 
depending on the feedback to bring the 
motor back to correct speed. If your 
system does not include a data 
separator that is external to the disk 
control chip, then the normal tolerance 
in speed that you can stand without 
lost data is between one and two per- 
cent (3 to 6 RPM). 

7. The head positioning control is 
driven internally from an external con- 
trol pulse. This is under the direct con- 
trol of the DOS and consists of two 
signals, head direction level and head 
step pulse. All the electronics in the 
disk drive are activated by the disk 
select level. This select level also ac- 
tivates the head load relay (actually a 
solenoid) that pulls the second head or 
pressure pad against the diskette. This 
forces the diskette into contact with the 
head. All head positions are SOFT- 
WARE controlled. The head step pulse 
from outside the drive is translated into 
a specific number of degrees of ro- 
tation by the head step motor in con- 
junction with the internal drive logic. 
A 40-track drive steps approximately 
I /40th inch track to track, and the 
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80-track drive steps approximately 
l/80th inch track to track. Yes, only 
about a one-inch band of the diskette is 
actually used for data storage. Almost 
seems like a waste, doesn't it? 

8. Data transfer to and from the disk 
drive is carried out in serial form. By 
nature all magnetic media are serial. 
The large tape transports that accept 
data in parallel form actually have nine 
read/ write heads called channels to ac- 
compUsh the job. You can see why they 
are very expensive. This conversion is 
accomplished within the disk controller 
itself. The disk control chip is what 
really ties the whole system together 
and we will discuss it right after the 
next section. The data are stored as two 
frequencies on the disk, and are called 
FM (frequency modulation). One fre- 
quency denotes a and the other a 1 . 
For double-density operation, it is 
called MFM (modified frequency 
modulation) and two higher frequen- 
cies are used. In the early days many 
disk drives were produced with 
read/write heads that could not handle 
the higher frequencies of the MFM for- 
mat, but today all drives being built 
will handle the MFM. I don't think the 
industry thought that the double- 
density format would be so popular 
with the public. 

9. Here again is an area that 
responds to the influence of the outside 
world. It is the software that tells the 
drive to read data or write data to disk. 
The R/W signal controls this function 
and either turns on the internal read 
circuits or turns on the internal write 
circuits. Since this is only one signal, its 
level determines the read condition or 
the write condition. The write condi- 
tion turns off the data-sense amplifiers 
and allows signal to be supplied from 
the logic board to the head (now per- 
forming as a write head). In the read 
mode, the write circuitry is disabled 
and the head is connected to the data- 



sense amplifiers. As the disk spins past 
the head, the magnetized particles in- 
duce a small voltage in the head. These 
small voltages are detected and 
amplified by the sense amplifiers and 
we have recovered the data put on the 
disk. 

Well, that just about covers the drive 
itself. Any of these disk drives can be 
used on soft-sectored systems or hard- 
sectored systems. If you look at Figure 
3, you will see how the data is organ- 
ized (top) for soft-sector and hard- 
sector (bottom). 

I am going to cover the formats, 
etc., as they apply to my Model I. The 
number of sectors differs from 
manufacturer to manufacturer, and 
sometimes one will change the number 
of sectors from one revision of a DOS 
to another. Whatever brand of com- 
puter you are using, the same prin- 
ciples apply. Only the method of im- 
plementation changes. When looking 
at the formats in Figure 3, it becomes 
very clear what happens if the ro- 



tational speed gets too fast: The end of 
the track's last sector is cut off or over- 
rides the beginning of the first sector. 
It is usually the former as the index 
sensor will cut off the write operation 
and cause an error message to be 
displayed. 

The disk control chip is the heart of 
the whole system. It does the timing, 
data transfer, read/write control, 
FM/MFM format, and general 
housekeeping for the disk. Let's say 
you have just told the computer to for- 
mat your diskette (data disk). First the 
DOS tells the controller to seek track 
00, so the controller sends out the 
select signal, starts the disk motor, 
loads the head, selects head direction, 
starts stepping the head, and checks 
track 00 sensor (a sensor similar to the 
write-protect) after each step. When it 
detects track 00, it looks for any cor- 
rectly formatted sectors. If it finds the 
track already formatted, it lets you 
know about it through the DOS. This 
time we are clean. In the following, 
each of the GAP numbers represents a 
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blank area of a different size and is ex- 
pressed by number of characters wide 
(the number of characters that could be 
stored in that space). Now the DOS 
waits for the index hole to be detected 
and it sets GAPl - ID Sector 1 - GAP2 
- Fills data area with a specific se- 
quence of characters - GAP3 - ID Sec- 
tor 2 - GAP2 - Fills data area with same 
as sector 1 - GAP3 . . . etc. to the end 
of track (sector 10 for single-density or 
sector 18 for double-density) - GAP4. 
This format is the upper one in Figure 
3 and is the soft-sectored format. Tim- 
ing is all-important to the soft-sectored 
disk system. 

The hard-sectored system is less 
critical of internal timing as each sector 
is initiated by a narrow pulse from the 
index sensor. If you look at the holes in 
a hard-sectored disk you will find the 
index hole is larger in diameter than the 
sector holes. Here we wait for the wide 
pulse from the index sensor, then we 
wait for the first narrow pulse, write 
sector 1 preamble, write the specified 
test data, write postamble, wait for 
narrow pulse, write preamble, test 
data, postamble, etc., for ten sectors or 
16 sectors (the only two hard 5 1/4 for- 
mats I know of). This is the lower for- 
mat in Figure 3. 

I did not cover verifying the for- 
matted track above as both the hard- 
sector and soft-sector systems use the 
same two methods of doing so. The 
most popular way is to verify the for- 
matting of the track immediately on 
the next revolution of the diskette. The 
second method is to format the whole 
diskette and then verify the formatted 
tracks in reverse order or return to 
track 00 and verify in the forward 
direction. We have now covered the 
diskette, disk drive, and formatted a 
diskette. The only thing now is 
single/double density. If you were 
sharp, you already know the answer to 
that one now. 

Single-density is cutting your disk 
into ten sectors for both hard- and 
soft-sectored systems. When we 
upgrade the DOS in a hard system to 
handle 16 sectors, we are using their 
double format. We increase our data 
storage by a factor of 1.6 as well as 
speed of data transfer. The disk is still 
rotating at 300 RPM. On my Model I 
with the Doubler, I now get 18 sectors 
per track. This is an increase of 1.8 in 
capacity and speed. Simple, isn't it? 

Well, that is about all for now. Next 
month I will try to cover several dif- 
ferent types of drives and what their 
differences are. I am a bench type and 
have not used very many of the dif- 
ferent DOSs that are available, but I 
will try to recuss a little about the ones 
I have a noddin' acquaintance with. © 
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EXPERIMENTS IN ARTIFICIAL 

INTELLIGENCE FOR SMALL 

COMPUTERS 

by John Krutch (Howard Sams) Sug- 
gested retail price: $6.95. 

Reviewed by Luigi Bisceglia 

What a good idea: introduce the 
elementary concepts of artificial in- 
telligence (AI) by using programming 
experiments in TRS-80® BASIC. The 
table of contents lists its potential: 
Chapter One briefly describes the 
scope and problems of AI. Chapter 
Two uses game-playing to describe 
trees, minimaxing, and the alpha-beta 
algorithm. Chapter Three discusses 
problem solving. Chapter Four 
describes programs that "reason" and 
"converse" syllogistically. Chapter 
Five talks about computer-created 
verse. Chapter Six continues that idea 
into computer-generated text. And 
Chapter Seven discusses psuedo- 
natural language responsiveness, 
i.e., Eliza. 

However, the book's arrangement is 
a clue to its failure. Computer haiku 
and Eliza are not the penultimate state 
of computer inteUigence. Such pro- 
grams mimic aspects of intelligence but 
don't lead to it. Any number of 
machines could randomly select words 
from a limited, keyed vocabulary and 
"create" so-called haiku. In a com- 
puter program, the onerous task is 
entering the vocabulary; Krutch's is no 
different. 

Chapter Two's discussion of trees 
was my reason for purchasing the 
book. As a reasonably intelligent per- 
son, I have a theoretical appreciation 
for AI, but technical discussions put 
my perceptive faculties to sleep. In this 
chapter, Krutch described the minimax 
tree search so simply that I could not 
fail to understand and then he went on 
to clarify pruning. The discussions 
threw Ught where once was darkness, 
but were limited to descriptions of 
what an algorithm does, not how 
it works. 

And right there on page 20, the book 
lost its focus and direction: "In the in- 
terest of brevity CHECKERS does not 
incorporate a move-by-move tree 
generation procedure as previously 
described." Nothing in the rest of the 
book is worth omitting an in-depth ex- 
ample of that procedure. Once the 
92 January 1982 



author failed to further our under- 
standing of tree searching, he also 
wandered away from the promised ex- 
periments toward computer in- 
telligence. 

Even Sargon, for example, with its 
impressive list of victories remains a 
"dumb" program. That is not meant 




in any way to diminish the Spracklens' 
achievement, but Sargon doesn't learn 
except as they do; each contest is a 
tour-de-force unrelated to the past or 
future; it's what was once called an 
idiot-savant. 

All of Krutch's examples suffer from 
that malaise. Every collection since 
What Do You Do After You Hit 
Return has included similar simplistic 
versions of haiku, checkers, and Eliza. 
Why didn't Krutch present real ex- 
periments toward artificial intelligence 
even at the elementary level of BASIC 
programming? In his haiku program, 
why not an algorithm to request help in 
developing vocabulary — and then let 
the program write poetry? 

Krutch failed to live up to his con- 
cept. The book amounts to a collection 
of seven inappreciable BASIC pro- 
grams that are not worth $6.95 plus 
tax. I am excited by the hope that we 
SoftSide 



might create an alternate life form or 
intelligence. Maybe I won't live on the 
moon or colonize deep space, but I can 
participate in this adventure close to 
home. Unfortunately, Krutch's book 
will not help any of us share the adven- 
ture. 

GRAPHICS EDITOR AND 
PROGRAMMER 

by Bill Mason (J.F. Consulting) 
System Requirements: 16K tape-based 
or 32K disk-based TRS-80® Model I or 
III. Suggested retail price: cassette — 
$25.99 

Reviewed by Margaret M. Grothman 

Of all TRS-80® programs that have 
passed my way, none has exceeded my 
expectations as this one has, Graphics 
Editor and Programmer, by Bill 
Mason. 

With GEAP, you can create a screen 
display consisting of both graphics and 
text, generate the BASIC program to 
recreate the display, and save it to tape 
or disk for use in your own programs. 
Other programs advertise the same ser- 
vices — but GEAP has so many extras, 
and saves so much of the pro- 
grammer's precious time, that it 
deserves special recognition. 
I sent for GEAP in response to a 
direct-mail solicitation. Having been 
burned before, I was skeptical, but 
willing to risk the money on the chance 
that GEAP would perform as claimed. 
It has surpassed all hopes. 

Like any complex program, GEAP 
takes time to learn. The documentation 
is not elaborate, but it is very clear, and 
arranged in a way that allows you to 
begin using the program right away. 
GEAP has four modes: regular, print, 
keypad, and designate. Elementary 
commands in each mode are intro- 
duced before going into the frills. 

Regular and Print Modes 

The regular mode allows you to 
draw on the screen by holding down an 
arrow key and the shift key. Moving an 
unshifted arrow erases or moves the 
cursor without drawing. A picture can 
be saved at any time by pressing 
ENTER, and can be retrieved by press- 



ing the spacebar. CLEAR clears the 
screen. If you want words on your 
display, you go to the print mode via 
the asterisk key. 

When you are satisfied with the 
display, you call a menu for instruc- 
tions to create the program. You can 
specify compressed or uncompressed 
code. Compressed code, like packed 
strings, cannot be edited, but uses 
much less memory than uncompressed 
code. Unless you anticipate a need to 
edit the picture later, you would want 
to use the compressed form. 

After the program has been made, 
you can RUN it, LIST it to the screen 
or printer, or SAVE it on tape or disk. 
While you do this, GEAP is still in 
memory, and you may return to it to 
make more displays. 

Keypad Mode 

In keypad mode, you can: 

(1) Draw a horizontal line through 
the cursor by pressing the spacebar. 

(2) Press ENTER to display the print 
location of the cursor. This is useful 
for marking a spot for printing pro- 
gram variables later. 

(3) Move the entire screen in any 
direction. A very handy command. 

(4) Use six keys (Q, W, A, S, Z, X) 
as a graphics keypad to draw any of the 
63 graphics patterns. Once you have 
drawn a pattern, you can use the shift 
and arrow keys to draw a row of that 
pattern. You could use this feature, for 
example, to draw with a square cursor, 
instead of the usual rectangular, single 
pixel cursor. This feature is also handy 
for drawing fancy borders around a 
display. 

Designate Mode 

This mode is the most complicated 
of the four GEAP modes, but also the 
most fun. In the designate mode, you 
can mark off a part of the picture, and 
then manipulate it in various ways. 
You can fill it with a graphics character 
of your choice or you can reverse black 
and white. Once you have 
"designated" a figure, you can move 
it, duplicate it on other parts of the 
screen, rotate it, magnify it, or produce 
a mirror image of it. You can even 
change its dimensions. One of the most 
intriguing things that can be done with 
the designated figure is to use it as a 
paint brush. By holding down the slash 
key, the shift key, and an arrow key 
simultaneously, you can make a row of 
figures, each one superimposed on the 
last, but offset by one print location. 
You could draw a pile of boxes, a row 
of houses, or a fence. 

The designated figure can be stored 
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Above: Samples of the over-sized "Super Graphics" character sets made with 
two GEAP Expansion Modules. All four Expansion Modules which contain dif- 
ferent enhancements to the GEAP program are available together for $16.99. 



in a string with a name of your choos- 
ing. The instructions to create the 
string also create a matching string to 
erase your figure. This is very useful 
for programs which use the same figure 
in different locations and at different 
times, for example, game tokens. The 
code containing the strings are in com- 
pressed form and can't be edited. 

Incidentally, merging GEAP 
displays or strings into another pro- 
gram is a simple POKE and PEEK pro- 
cedure. If you don't already know how 
to merge two program segments, the 
instructions are given in an appendix to 
GEAP. 

Other Features 

You can LOAD a screen from 
another program for editing and 
coding with GEAP. I have used this 
feature to recede program segments 
from another program into the com- 
pressed code to reserve space. 

Two displays may be merged. A 
display can also be programmed to ap- 
pear in stages by inserting time delays. 

If the program you are writing re- 
quires input from the user, a quote 
mark will result in a prompt at that 
point when the display is coded. 

And last, if you can think of any 
other commands that you would like, 
instructions are provided for expand- 
ing GEAP. 

Flaws 

Can GEAP do everything? Well, no. 
It doesn't carry out trash and wash the 
dishes while you are programming. 
Otherwise, it is hard to find fault. 
SoftSide 



One minor problem has to do with 
the spacebar, which is used to call back 
pictures that have been saved. Several 
times I accidentally brushed against the 
spacebar, losing the picture I was 
working on. To prevent the loss of 
your hard work, it is a good idea to 
save the screen frequently. There is an 
alternate temporary screen storage 
which can also be used. 



Summary 

I use my TRS-80® for educational 
program development. In pre-GEAP 
days, I made the video displays for my 
programs in a painstaking manner. I 
used a program which allowed me to 
draw pictures on the screen, then LIST 
the print locations to the printer. After 
the locations were known, I assembled 
them manually into strings or into data 
statements to be POKEd into the video 
memory. Then the words had to be im- 
posed onto the graphics display by 
means of PRINT® statements. This 
was all very time consuming. With 
GEAP, I can do this work in about 
one-fourth of the time it used to take. 

But my enthusiasm is based on more 
than just a good program. I used 
GEAP while it was being test- 
marketed. During this time, my cor- 
respondence with the author. Bill 
Mason, and with J. F. Consulting, 
which markets the program, was 
rewarded by a high level of concern 
and willingness to help. These are 
people who obviously care about the 
qualjty of their product and the 
satisfaction of their customers. They 
deserve to be successful. © 
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SOFTSroES FROM THE PAST 

If you like what this issue of SoftSide 
has to offer, you should see what's 
waiting for you in SoftSide back issues! 
You may feel that you've missed out on 
many of our programs that appeared 
before you became a subscriber. It's not 
too late to do something about it. You 
won't have to miss a thing because we still 
have back issues available to complete 
your SoftSide library! But, order now as 
some of our more popular issues are 



already out of stock and others are 
dwindhng quickly. 

Listed below are all of our past issues 
with their FEATURE programs and the 
systems they're for. For a more complete 
index of all the programs and articles 
offered in each of the back issues of 
SoftSide please refer to the May, 1981, 
issue. Each issue costs $3.50 for the 
magazine only. Those issues marked with 



an asterisk are also available with the 
program on cassette for $9.95 or on disk 
for $14.95 (except DV issues). 

The enhanced Disk Versions (DV) 
contain an extra program for each system. 
The TRS-80® DV began with the 
September, 1981, issue. The Apple DV 
began October, 1981, and the Atari DV 
started in November, 1981. Each 
enhanced DV costs $19.95. 




*August 1980 

"Caribbean Cruising" — Apple 
"Master's Golf" — ATARI® 
"Sailplane" — TRS-80® 



AiTAni mated 






APPIE BASEBAtl J^ 
SPEEDELIO f:77^ 
WORDPROBIEMS fe.' 
THE DATA BAM. . . *' ' 
In Search Of 


KIDNAPPEDI .,;vjvj. 

Can you C^f Jp*r''"''<§S5iv 





*September 1980 

Magazine not available 
Media edition only 
"Developing Data Base" 
All Systems 

"Stereo Generator" — Apple 
"Barricade" — ATARI® 
"Concentration 11" — TRS-80® 



'October 1980 

"Developing Data Base 11" 
All Systems 

"Moonlanding" — Apple 
"World Series" — ATARI® 
"Earth Port 11" — TRS-80® 
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♦November 1980 

"Developing Data Base III' 
All Systems 
"Collision" — Apple 
"Trench" — ATARI® 
"Kriegspiel" — TRS-80® 
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'December 1980 

"Developing Data Base IV" 
All Systems 
"Baseball" — Apple 
"Speedello" — ATARI® 
"Kidnapped" — TRS-80® 



'January 1981 

"Developing Data Base V" 

All Systems 

"Convoy" — Apple 

and TRS-80® 

"Angle Cannon" — ATARI® 

"Ship Destroyer" — TRS-80® 



'February 1981 

"Developing Data Base VI" 

All Systems 

"Miner" — All Systems 

"Mini-Golf" — ATARI® 

and TRS-80® 

"Long Distance" — TRS-80^ 



'March 1981 

"Developing Data Base 
VII" — All Systems 
"Strategy Strike" — Apple 
and TRS-80® 
"Flags" — ATARI® 
"Volcano" — TRS-80® 



94 



January 1982 



SoftSide 



S3S5a 



TM 



e 



Use the bind-in card in this issue to order or send a list of 
the back issues you'd like, with payment of $3.50 per 
magazine. 

SoftSide Publications 

515 Abbott Drive 

Broomall, PA 19008 

For the magazine/media combination, send $9.95 per cassette 
and magazine, $14.95 per disk and magazine, or $19.95 per DV 
and magazine to: 

SoftSide Publications 

6 South Street 

Milford, NH 03055 



*December 1981 

"Titan" — All Systems 
"Aircraft Commander" - 
"Developing Data 
Base"— ATARI® 
"Electronics 
Assistant"— TRS-80® 

Enhanced Disk Version 

"Bobsledding" — Apple 
"Survive" — ATARI® 
"Konane" — TRS-80® 
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*April 1981 

'Battle At Sea" — Apple 
'Convoy" — ATARI® 
'Dominoes" — TRS-80® 
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*August 1981 

Magazine not available 
Media edition only 
"Quest 1" — All Systems 
"Battlefield" — All Systems 
"Compu-Sketch" — TRS-80® 



*May 1981 

"Galaxia" — Apple 
"Dodge" — ATARI® 
"Orienteering At Jacque's 
Coulee" — TRS-80® 




'September 1981 

Magazine not available 

Media edition only 

"Flip-It" — All Systems 

"Word Challenge" — All Systems 

"Exterminate" — TRS-80® 

Enhanced Disk Version 

"NewBASIC" — TRS-80® 



*June 1981 

"Old Glory" — All Systems 
"Word-Search Puzzle 
Generator" — All Systems 
"Anallist" — TRS-80® 




•October 1981 

"Leyte" — All Systems 

"Developing Data Base" — Apple 

"Character Generator" 

ATARI® 

"Envyrn™" _ TRS-80® 

Enhanced Disk Versions 

"Super Dairy Farming" — Apple 
"Gameplay" — TRS-80® 



*July 1981 

"Chemistry Drill" 

All Systems 

"Kidnapped" — Apple 
and ATARI® 
"Magic Paper 
Calculator" — TRS-80® 




*November 1981 

"Flight of the Bumblebee" 
All Systems 

"Music Machine" — Apple 
"Music Programmer" — ATARI® 
"Music Editor" — TRS-80® 
Enhanced Disk Versions 
"National Anthems" — Apple 
'Volleyball" — ATARI® 
"Mean Checkers Machine" 
TRS-80® 
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SoftSide Selections Terms & Conditions 

Please refer to bound-in order form card for ordering. 

USA Orders 

SoftS/de Se/ections accepts VISA, MasterCard, Certified Checks, Money Orders and 

Personal Checks. SoftSide Selections pays all shipping charges on domestic PREPAID 

orders OVER $100. On all PREPAID orders under $100 a handling charge of $2.50 must be 

added. 

C.O.D. 

C.O.D. orders accepted for U.S. shipment only. There is a $2.50 ADDITIONAL C.O.D. charge. 

Canada/Mexico Orders 

No C.O.D, to Canada or Mexico. The preferred method of payment is by MasterCard or VISA. 
NO PERSONAL OR COMPANY CHECKS. A bank check is acceptable if it has been 
preprinted for payment in U.S. dollars. The handling charge on all Canadian or Mexican 
orders is $5.00 PLUS actual shipping charges. 

Other Foreign Orders 

Payment must either be by a BANK CHECK drawn on a U.S. bank, payable in U.S. dollars or 
by affiliated bank credit cards of VISA or MasterCard. All shipping and duty charges are the 
customer's responsibility. All overseas orders are subject to a $10.00 handling charge PLUS 
actual postage charges. 

Guarantee 

All software is guaranteed to load and run. If you experience difficulties with the product 
within 30 days, the tape or disk may be returned. Call (603) 673-5288 or 673-0586 for a Return 
Authorization Number. Any returns without a Return Authorization Number clearly marked 
on the outside \N\LL BE REFUSED. Send your properly protected disk or tape to the 
attention of Customer Service Representative with a note including your name and address. 

Liability 

All software is sold on an as-is basis. SoftSide assumes no liability for loss or damage 
caused or alleged to be caused directly or Indirectly by products sold or exchanged by them 
or their distributors, including, but not limited to, any interruption in service, loss of 
business or anticipatory profits or consequential damages resulting from use or operation 
of such software. 

Prices 

Prices are subject to change without notice. We are not responsible for typographical 

errors. 
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You hover on the fringe, five parsecs 
from initialization of your mission. Your 
culture is tired and in need of new vitality. 
The Chamber can duplicate the essence of 
life from any species and you're about to 
start your "collection." What fate awaits 
you on this unique mission? Is it true that 
cultures opposed to your sampling have 
been preparing their defenses and stand 
ready to resist your intrusions? 

The first module is prepared for take off 
— diversions thru Envyrn^'^ presents 
Parsec^'^, a graphics space adventure 
unlike any you've ever played. Parsec^^, 
created with the Envyrn'^'^ graphics editor, 
simulates deep space in your TRS-80" 
computer, creating an action-filled field of 
play larger than any other microcomputer 
game. Parsec^*^ takes you beyond the 
screen and into worlds not yet seen by you 
or your computer. Join the adventure — 
subscribe to diversions thru Envyrn^^ now 
or send $20 for Parsec™, the first of six 
modules to be released in 1982. Each 
module includes a magazine and a disk. 



liversions 



thru Eni^i/rn 



6 South Street Milford,NH03055 

D One-year subscription (6 modules) — $60.00 
D Sample EnvyrnmentTM Parsec^'*^ only — $20.00 
Name 

Address . 



City/State 

n Payment enclosed 

D MasterCard n VISA 
Name of Cardtiolder 



-Zip- 



Exp.Date_ 



MC# and lnterbank#/VISA#_ 
Signature 



To order use the card provided in this issue or send in this order blanl(. 

I own a 48K TRS-80® with Disk D Model I D Model III 

TRS-80 is a registered trademarl< of Tandy Corporation 



It's Here! The Computer strategy 
Game with Bounce! 



For: 

Apple 
Atari 

TRS-80 




Have you ever 

seen an exciting 

action game combined 

witli the intense 

strategy of cfiess, 

backgammon or Othello? 

Ricochet... the first 

abstract strategy game designed 

exclusively for the computer owner. . . 

is both. And loads of fun. 

You maneuver your blocks, both to 
protect your own goal from attack and 
to hit your opponent's goal. Two launchers 
to fire. Your shots ricochet off the 
blocks, earning you points on the way 
to their targets, it's twice as challenging 
because the position changes with both 
your own and your opponent's moves 
and shots. 

You don't have to play alone, either. 
Play against any one of four different 
opponents (each a different personality) 
inside your computer, or against 
another human. 



And Ricochet is truly competitive... if 
you want it to be. A "smart clock" lets 
you put more pressure on your opponent 
by forcing him to play faster than you. 
But you've got to win two out of three 
(or three out of five) games to claim 
victory. Your computer rates you after 
each match, so you can compare your 
mastery of the game with that of other 
players— perfect for tournament play. 
So perfect that mind toys and Automated 
Simulations are sponsoring the first 
national Ricochet tournament. See your 
local dealer to find out how you can 
become a regional or national champion. 

Price $19.95 ■ .^"-x- 



ZXnn^hpr IV/linH Tnv ©iqsi, automated simulations, inc. 

m l^l<l 1^1 IVIII IVl IWf P.O. Box 4247, Mountain View, CA 94040 

From Automated Simulations 

•APPLE, ATARI and TRS-80 are trademarks of Apple Computer, Inc., Atari, Inc. and Tandy Corp., respectively. 




